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

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

Question

Митрич

21 сентября, 13:52

+2

Ответы (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 программа должна запрашивать у пользователя.