Найти сумму квадратов всех натуральных чисел от 1 - вопрос №90833291100 от луч16 06.08.2020 18:34

Question

Информатика: Найти сумму квадратов всех натуральных чисел от 1 до 100 написать программу

луч16 · Answer

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
1.To(100).Select(t->t*t).Sum.Println
end.

Результат
338350