Найти сумму квадратов всех натуральных чисел от 1 - вопрос №90842311100 от pifi123 02.03.2020 12:41

Question

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

pifi123 · Answer

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

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

Результат
338350