Составите программу; которая вычисляет сумму квадратов всех натуральных чисел от 1 до 500

Question

Никодим

14 октября, 00:57

+2

Ответы (1)

Знаете ответ на вопрос?

Ульяна · Answer 1

Function SumSqr (N : Longint) : Longint;

Begin

If N>0 then SumSqr:=N*N+SumSqr (N-1) else SumSqr:=0;

end;

Begin

Writeln (SumSqr (500)) ;

end.