Переменная s сумма n последний член
procedure proc(s,n: integer);
<span>begin
s:=s+sqr(n);
if n>0 then proc(s,n-1) else
writeln(' s= ', s:3)
</span>end;
var n:integer;
<span>begin
readln(n);
proc(0, n);
readln
</span><span>end. </span>
<span>прости я російська і пишу з перекладача прости що не так як там у вас на <span>Укрина</span></span>
16777216 = 2 ^ 24
Размер изображения 800 * 600* 24 = 11520000 бита
время = 11520000/28800 = 400 секунд