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

Kamaria086 Kamaria086    1   18.05.2019 23:40    0

Ответы
Goldman2017 Goldman2017  12.06.2020 05:18

var sum,i:integer;

begin

sum:=0;

for i:=100 to 500 do

sum:=sum+i;

writeln (i);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика