Составьте программу, которая находит сумму квадратов чисел от 1 до 10 подскажите...

Question

Составьте программу, которая находит сумму квадратов чисел от 1 до 10 подскажите пожалуйста))))

Answer 1

Var i, s: integer;
begin
For i:= 1 to 10 do 
s:= s+ sqr(i);
write(s);
end.

Comments

спасибо)))