Аватар
Информатика, опубликовано 2018-08-22 21:35:51 by Гость

Пожалуйста. напишите программу, вычисляющую сумму квадратов от 1 до N. на ABC паскале

Аватар
Ответ оставил Гость

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var n:=ReadInteger(n=);
  Writeln(Сумма квадратов от 1 до ,n, равна ,
    1.To(n).Select(x->x*x).Sum)
end.

Тестовое решение
n= 152
Сумма квадратов от 1 до 152 равна 1182180

Вопрос
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.