Дано натуральное число n. Выведите все числа от 1 до n. ** паскаль.цикл не...

Question

Дано натуральное число n. Выведите все числа от 1 до n. на паскаль.цикл не использовать.рекурсия

Answer 1

Procedure R(n:integer);
Begin
if n>1 then R(n-1);
Write(n,' ')
End;

Var
   n:integer;
Begin
Write('n = ');
ReadLn(n);
R(n)
End.