Задача на нахождение суммы элементов заданного интервала с шагом 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.

Оцени полезность:

13 голосов , оценка 3.923 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы