Pascal abc;
var a,n,pr:<span> longint</span>;
begin
pr:=1;
writeln('введите число n ');
readln(n);
for a:=1 to n do begin
pr:=a*pr;
end;
writeln('произведение чисел от 1 до ',n,' = ',pr);
end.
1. 0,25 Кбайт=256 байт = 2048 бит
2. Каждый символ - 8 бит
3. 2048/8=256 символов
1,4,10,13,16,19,22,25,28,31,34,37,40,43,46,49,52,55,58,61
11719,03. В 1 Кб 1024 байта. Следовательно, делим 12000288 на 1024 = 11719,03 Кб.<span>
</span>