Составить программу вычисления суммы квадратов чисел от 1 до n
Составить программу вычисления суммы квадратов чисел от 1 до n
Гость
Ответ(ы) на вопрос:
Гостьпеременная 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.
Не нашли ответ?
Похожие вопросы