...
writeln(abs(power(10,5) +3));
...
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
Range(1, n).Select(i -> 1 + 1 / Sqr(i)).Product.Println
end.
8192 бит = 8192 / 1024 = 8 байт
8 байт = 8/8 = 1 КБ
Объем файла I=k*i, k- количество пикселей изображения, i- глубина цвета
k=128*128= 16384
i=㏒₂N, где N- количество цветов палитры
i=㏒₂64= 6 бит
I=16384*6= 98304 бит
98304 бит/8= 12288 байт
12288 байт/1024= 12 Кбайт
Ответ: 12 Кбайт
Var i,p,n:integer;
begin
readln(i);p:=1;
for n:=1 to i do
p:=p*n^2/(n^2+2n+3);
writeln(p);
не уверен но должно работать...