Program p1;
Var a: integer;
Begin
a:=5+5*5;
Writeln('Ответ: ', a);
End.
Значит эта ОС лучше чем другие(удобный интерфейс нормальный девайс ее очень легко установить стоит она немного продается диск в каждом магазине и типо того)
Для простоты, сначала рассчитаем объем файла в битах.
512000*16 = 8192000 - бит.
Далее, в одном байте - 8 бит.
А в одном килобайте - 1024 байт.
Следовательно, в одном килобайте - 8*1024 = 8192 бит.
Значит, объем файла:
8192000/8192 = 1000 килобайт.
Const n=10;
var
a: array[1..n] of integer;
sa: real;
k: integer;
i: byte;
begin
sa:=0; k:=0;
for i:=1 to n do begin;
read (a[i]);
if a[i] mod 4 =0 then begin
sa:=sa+a[i];
k:=k+1;
end;
end;
sa:=sa/k;
writeln;
writeln ('Среднее значение элементов, кратных четырем, = ',sa);
end.
----------------------------------
Пример:
4 6 8 10 12 16 14 18 20 22
Среднее значение элементов, кратных четырем, = 12