составьте программу, вычисляющую сумму квадратов чисел от 1 до введённого вами целого числа n.
ПОМОГИТЕ ПОЖАЛУЙСТА ПОЖАЛУЙСТА ПОЖАЛУЙСТА ПОЖАЛУЙСТА ПОЖАЛУЙСТА

Ответ

Автор - Kilekanisic

PascalABC.NET

begin

var (N,Sum) := (ReadInteger,0);

for var i := 1 to N do

Sum +=sqr(i) ;

Print(Sum)

end.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.