Найдите сумму квадратов всех чисел от 1 до 20 с шагом 1
Найдите сумму квадратов всех чисел от 1 до 20 с шагом 1
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
Writeln(1.To(20).Select(x->x*x).Sum)
end.
Результат
2870
Не нашли ответ?
Похожие вопросы