Цикл "Для". Написать программу

1) Найти сумму квадратов целых чисел от 1 до 100.

Question

Информатика

Парфений

19 февраля, 09:07

Цикл "Для". Написать программу

1) Найти сумму квадратов целых чисел от 1 до 100.

+5

Ответы (2)

Знаете ответ на вопрос?

Степа · Answer 1

Var

i, sum: longint;

begin

for i : = 1 to 100 do sum : = sum + sqr (i) ;

write (sum) ;

end.

Вероничка · Answer 2

Var

s, i, n:integer;

begin

i:=100;

s:=0;

For n : = 1 to i do

begin

s:=s+i*i;

i:=i-1;

end;

writeln ('Сумма квадратов целых чисел от 1 до 100 равна ', s) ;

end.

Цикл "Для". Написать программу1) Найти сумму квадратов целых чисел от 1 до 100.

Цикл "Для". Написать программу

1) Найти сумму квадратов целых чисел от 1 до 100.