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

@exerenss · Регистрация: 11.12.2013

Студворк — интернет-сервис помощи студентам

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

@volvo · 27.12.2013, 18:50

Pascal

procedure p(n : integer);
begin
  if n > 0 then
  begin
    p(n div 10);
    if odd(n mod 10) then write(n mod 10);
  end;
end;
 
begin
  p(123456);
end.

@exerenss 0 / 0 / 1 Регистрация: 11.12.2013 Сообщений: 34
		1
	Рекурсия: вывести все нечётные цифры заданного натурального числа в порядке их следования 27.12.2013, 18:46. Показов 1952. Ответов 1 Метки нет (Все метки) Выдать все нечётные цифры заданного натурального числа в порядке их следования (слева направо). 0

	27.12.2013, 18:50

Опции темы

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

Решение