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

ksenia777angel ksenia777angel    1   29.08.2019 16:40    7

Ответы
Италия13 Италия13  06.10.2020 03:16
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика