Question

Pascal abc! даны два целых числа a и в (каждое в отдельной строке). выведите все числа от a до b включительно, в порядке возрастания, если a < b, или в порядке убывания в противном случае. (в этой обязательно нужно использовать рекурсивную процедуру и нельзя использовать циклы.)

Answer 1

//Pascal ABC.NET v3.1 сборка 1219

Var
 a,b:integer;

 procedure forforfunclang(a,b:integer);
 begin
  if a=b then writeln(b);
  if a>b then
   begin
    writeln(a);
    a:=a-1;
    forforfunclang(a,b);
   end;
  if a<b then
   begin
    writeln(a);
    a:=a+1;
    forforfunclang(a,b);
   end;
end;

begin
 read(a,b);
 forforfunclang(a,b);
end.

Пример ввода:
6
2
Пример вывода:
6
5
4
3
2