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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
