Даны два целых числа А и В. Вывести в порядке возрастания все целые числа, расположенные...

Question

Даны два целых числа А и В. Вывести в порядке возрастания все целые числа, расположенные между А и В (не включая сами числа А и В), а также сумму этих чисел.

Answer 1

var a,b,sum:integer; // Объявление переменных

begin

 writeln('Введите a, b'); readln(a,b); //Ввод a,b

 for a := a + 1 to b - 1 do begin // Цикл, который будет идти с a+1 до b-1

   write(a + ' '); // Вывод возрастающего числа

   sum := sum + a; // Суммируем

 end;

 writeln();  

 writeln('Сумма: ' + sum); // Выводим сумму

end.