===== PascalABC.NET =====
begin
Range(6, 97, 2).Aggregate(BigInteger.One, (p,q) -> p*q).Println
end.
Program n1;
const n=10;
var a: array[1..n] of integer;
i,sum: integer;
begin
sum:=0;
for i:=1 to n do
begin
readln(a[i]);
if i mod 2=0 then sum:=sum+a[i];
end;
writeln(sum);
end.
Begin
writeln('Я люблю информатику');
end.
3,6e+8
0,03038
0,00685
5,625
5,431004875
512*32*64=1048576 символов
1048576*16=16 777 216 бит (информационный объём файла)
1,44*1024*1024*8=12 079 595, 52 бит объём дискеты в битах
16 777 216/12 079 595,52=1,38 - нужно две дискеты