Найти сумму квадратов всех натуральных чисел от 1 - вопрос №11009083554 от superfrap320 25.02.2022 09:49

Question

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

superfrap320 · Answer

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

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

Результат
338350