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

Question

Рема

18 мая, 13:23

+2

Ответы (1)

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

Гера · Answer 1

Var a, b:integer;

begin

readln (a, b) ;

If a>b then

for a:=a-1 downto b+1 do

writeln (a)

else

for a:=a+1 to b-1 do

writeln (a) ;

end.