Question

спросить у пользователя два числа. используя while посчитать сумму целый чисел между этими числами включительно.Вывести ответ на экран.Решить с помощью паскаль ABC.

Answer 1

var
a, b, sum: Integer;

begin
writeln('Введите числа:');
ReadLn(a, b);
sum := 0;
while b > a - 1 do
begin
sum := sum + b;
b := b - 1;
end;
WriteLn('Сумма чисел = ', sum);
end.