Программа в PascalABC.NET. Вычислить сумму квадратов чисел первой сотни.

24 Окт 2019 в 03:49
245 +1
0
Ответы
1

var i,s: integer;

begin

s:=0;

for i:=1 to 100 do s:=s+i*i;

writeln(s);

end.

Результат:

10670

24 Окт 2019 в 05:44
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир