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

Question

Информатика

Абдуллатиф

17 ноября, 17:05

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

+2

Ответы (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.