Даны два целых числа A и В. Выведите все числа от A до B включительно, в порядке возрастания, если A < B, или в порядке убывания в противном случае

Question

Филофей

2 сентября, 09:51

+3

Ответы (1)

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

Катюля · Answer 1

Var a, b, i:longint;

begin

read (a, b) ;

if b>=a then

for i:=a to b do

write (i,' ') else

for i:=a downto b do

write (i,' ') ;

end.