Ввести целое число и определить сумму квадратов чисел от 1 до этого числа
Пример:
Введите целое число 3
Сумма квадратов чисел равна 14

FriskDreemurr1 FriskDreemurr1    2   08.04.2020 23:25    1

Ответы
israelyan87 israelyan87  17.08.2020 22:55

// PascalABC.NET 3.6

begin

 var n := ReadInteger('Введите натуральное число:');

 Print('Сумма квадратов чисел равна', 1.To(n).Sum(k -> k * k))

end.


Ввести целое число и определить сумму квадратов чисел от 1 до этого числа Пример: Введите целое числ
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика