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

Предыдущий
вопрос Следующий
вопрос

Пример кода на Pascal ABC:

program SumOfNumbers;
var
num1, num2, sum, i: integer;
begin
write('Введите первое число: ');
readln(num1);
write('Введите второе число: ');
readln(num2);
sum := 0;
i := num1;
while i <= num2 do
begin
sum := sum + i;
i := i + 1;
end;
writeln('Сумма целых чисел между ', num1, ' и ', num2, ' включительно: ', sum);
end.

Пользователь вводит два числа, программа вычисляет сумму целых чисел между этими числами и выводит результат на экран.