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

Составьте программу вычисления суммы чисел в диапазоне от 1 до 100.

Ответы

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

var s,i: integer;

begin

s:=0;

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

write(s);

end.

Интересные вопросы
Предмет: Геометрия, автор: alinaberdyshev
Предмет: Алгебра, автор: Milla2000