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

Question

Информатика

Ефросин

12 марта, 07:47

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

+4

Ответы (1)

Знаете ответ на вопрос?

Ярослава · Answer 1

program asd;

var a, b, k:integer;

begin

readln (a, b) ;

b:=b-1;

while (b>a) do begin

write (b,', ') ;

b:=b-1;

k:=k+1;

end;

writeln;

writeln (k) ;

readln;

end.