Ответы
Ответ дал:
0
переменная s сумма n последний член
procedure proc(s,n: integer);
begin
s:=s+sqr(n);
if n>0 then proc(s,n-1) else
writeln(' s= ', s:3)
end;
var n:integer;
begin
readln(n);
proc(0, n);
readln
end.
procedure proc(s,n: integer);
begin
s:=s+sqr(n);
if n>0 then proc(s,n-1) else
writeln(' s= ', s:3)
end;
var n:integer;
begin
readln(n);
proc(0, n);
readln
end.
Вас заинтересует
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад