Напишите программу, вычисляющую сумму квадратов - вопрос №56161411 от Goldcold 24.12.2020 02:06

Question

Информатика: Напишите программу, вычисляющую сумму квадратов от 1 до n. на abc паскале

Goldcold · Answer

// 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