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

Question

Мая

18 декабря, 22:17

+3

Ответы (1)

Знаете ответ на вопрос?

Муня · 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.