Задача на нахождение суммы элементов заданного интервала с шагом 1 - PascalABC.NET
Формулировка задачи:
Помогите пожалуйста .
Программа запрашивает у пользователя два целых числа, затем вычисляет сумму чисел внутри этого интервала с шагом в единицу.
Спасибо
Решение задачи: «Задача на нахождение суммы элементов заданного интервала с шагом 1»
textual
Листинг программы
var a,b,i,s:integer;
begin
writeln('Введите 2 целых числа');
readln(a,b);
if a>b then
begin
s:=a;
a:=b;
b:=s;
end;
s:=0;
for i:=a+1 to b-1 do
s:=s+i;
write('S=',s)
end.