Var
a:array[1..1000] of extended;
i,n:longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
writeln;
for i:=1 to n do writeln(a[i]:0:3);
end.
<span>
</span>
1) 50*75=3750 символов на странице
3750*8бит=30000бит весит 1 страница
45*8*1024=368640 бит было напечатано
368640/30000≈12 страниц
В одном байте 8 бит, значит, 2048000 бит = 256000 байт
В одном Кбайте 1024 байт, значит 256000 байт = 250 Кбайт
Вот, держи :)
................................
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (ke,ko):=(0,0);
loop 5 do
if ReadInteger.IsOdd then Inc(ko)
else Inc(ke);
Writeln('Четных ',ke,', нечетных ',ko)
end.