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

Question

Витуся

29 августа, 21:39

+3

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