Составить программу вычисления суммы квадратов и квадрата суммы натуральных чисел от 1 до 50
// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
Writeln(Квадрат суммы [1;50]= ,sqr(Range(1,50).Sum));
Writeln(Сумма квадратов [1;50]= ,Range(1,50).Select(x->x*x).Sum);
end.
Тестовое решение:
Квадрат суммы [1;50]= 1625625
Сумма квадратов [1;50]= 42925
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
