Рекурсия - 17 стр.

UptoLike

Составители:

Рубрика:

begin

writeln('Введите натуральное число');

readln(n);

Digit_rec(n);

end.

Упражнения

1) Изменить процедуру Digit_rec для выдачи цифр заданного натурально-

го числа в обратном порядке (справа налево).

2) Выдать все нечётные цифры заданного натурального числа в порядке их

следования (слева направо).

Пример 6 Вводится с клавиатуры последовательность ненулевых целых

чисел, за которыми следует 0. Используя рекурсивную процедуру

без парамет-

ров, выдать сначала все отрицательные числа, затем все положительные.

program Rec_6;

procedure Print;

var x: integer;

begin

read(x);

if x<>0 then

begin

if x<0 then write(x,' ');

Print;

if x>0 then write(x,' ')

end

end;