ПАСКАЛЬНаписать программу нахождения суммы всех натуральных чисел от 1 до 99, используя...

Question

ПАСКАЛЬ
Написать программу нахождения суммы всех натуральных чисел от 1 до 99, используя цикл с параметром.

Answer 1

Var i,s:integer;
begin
s:=0;
for i:=1 to 99 do s:=s+i;
writeln('s = ',s);
end.

Пример:
s = 4950