Составить программу вычисления суммы квадратов чисел от 1 до n
Answers & Comments
iKudr
Переменная 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.
Answers & Comments
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.