Название переменной : Х, А, В.
Значение переменной: 3, 1, 8.
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var m := ReadSeqInteger('Введите последовательность:', n)
.Where(p -> p mod 8 = 0)
.DefaultIfEmpty
.Average;
if m > 0 then
Writeln(m)
else
Writeln('Элементов, кратных 8, нет')
end.
8*1024*1024*8=67`108`864 бит
в мегабайте 1024 килобайт
в килобайте 1024 байт
в байте 8 бит
Program Task;
Uses GraphABC;
Var i: Integer;
Begin
SetPenColor(Color.CornflowerBlue);
For i := 3 To 7 Do
DrawCircle(200, 200, i * 10);
<span>End.</span>
Условие задачи:
<span>Исходными данными для программы являются: название государства, численность населения, проживающего на его территории, площадь территории государства, число школ, вузов. Вводимая последовательность должна содержать информацию , как минимум, о трех государствах. Напечатать данные о числе вузов в государстве с максимальной плотностью населения.
</span>
В doc файле полный отчет, а в индивидуалка.pas сам код программы.