For3. даны два целых числа А и В (А<В). Вывести в порядке убывания все целые числа, расположенные между А и В (не включая числа (А и В), а также количество N этих чисел.

Question

Информатика

Протас

7 октября, 09:46

For3. даны два целых числа А и В (А<В). Вывести в порядке убывания все целые числа, расположенные между А и В (не включая числа (А и В), а также количество N этих чисел.

+4

Ответы (1)

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

Евсей · Answer 1

Var a, b: integer;

begin

write ('Введите a, b>>') ;

read (a, b) ;

if a
begin

while (b-1>a) do

begin

b:=b-1;

write (b, ' ') ;

end;

end

else write ('Неверные условия')

end.