Buthris 26 ноября 2019 в 06:42
Пожалуйста. напишите программу, вычисляющую сумму квадратов от 1 до N.
на ABC паскале
Пожалуйста. напишите программу, вычисляющую сумму квадратов от 1 до N.
на ABC паскале
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var n:=ReadInteger(n=);
Writeln(Сумма квадратов от 1 до ,n, равна ,
1.To(n).Select(x-gt;x*x).Sum)
end.
Тестовое решение
n= 152
Сумма квадратов от 1 до 152 равна 1182180
begin
var n:=ReadInteger(n=);
Writeln(Сумма квадратов от 1 до ,n, равна ,
1.To(n).Select(x-gt;x*x).Sum)
end.
Тестовое решение
n= 152
Сумма квадратов от 1 до 152 равна 1182180
Компьютеры и вычисления
241
0
Для комментирования необходимо зарегистрироваться на сайте