Предмет: Информатика, автор: svetik543

Найти сумму целых чисел от 100 до 500. Написать программу

Ответы

Автор ответа: Chudik32
0

var sum,i:integer;

begin

sum:=0;

for i:=100 to 500 do

sum:=sum+i;

writeln (i);

end.

Похожие вопросы
Предмет: Математика, автор: 19702009kt