Program math;var a: real;var i,n: integer;begina:=1;readln(n);for i:=1 to n dobegin a:=a+(1/i);end;writeln(a);end.
CLS
S = 0
FOR i =
1 TO 100
S = S +
i
NEXT i
<span>PRINT
"S=", S
</span>
Начинаешь закрашивать со стеночки а потом таким же темпом циклом НЦ ПОКА СВЕРХУ СНИЗУ ЗАКРАШЕНО ВЛЕВО ВПРАВО)
Итак:
1) 16*32*30*8=122 880
2)122 880 / 1024=120 (байт)
Ответ: 120 байт
....................................