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

Question

Информатика

Контесса

20 ноября, 10:55

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

+4

Ответы (1)

Знаешь ответ?

Аракси · 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.