Question

Решите вот эту программу по информатике. 20 баллов сразу

Программа должна суммировать числа

Answer 1

program n_1;

var

 s, a, b, i:integer;

begin

 s:=0;

 i:=a;

 readln(a);

 readln(b);

 while (i <= b) do

   begin

     inc(s, i);

     inc(i);

   end;

 write('Сумма чисел от ', a, ' до ', b, ' = ', s);

end.