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

Question

Информатика

Нусрет

28 октября, 17:23

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

+1

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