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

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

Пример кода на PascalABC:

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

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