Напишите программу, которая вычисляет сумму квадратов чисел от 1 до N.

Число N программа должна запрашивать у пользователя.

Question

Евдося

1 ноября, 00:28

+5

Ответы (1)

Знаете ответ?

Наля · Answer 1

var

n, i, sum:integer;

begin

readln (n) ;

for i:=1 to n do

sum:=sum+sqr (i) ;

writeln (sum) ;

end.

Напишите программу, которая вычисляет сумму квадратов чисел от 1 до N.Число N программа должна запрашивать у пользователя.