Рекурсия: печать десятичной записи целого положительного числа

@Валер@ · Регистрация: 25.01.2013

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

Используя процедуру write(x) только для x = 0, 1, ..., 9, напишите рекурсивную процедуру печати десятичной записи целого положительного числа x.

Это надо сделать на консоли... А как не знаю

@volvo · 01.11.2013, 18:17

Delphi

program Project1;
{$APPTYPE CONSOLE}
 
uses
  Windows,
  SysUtils;
 
procedure print(n : word);
begin
  if n > 9 then print(n div 10);
  write(n mod 10);
end;
 
var
  n : DWORD;
begin
  readln(n);
  print(n);
 
  readln;
end.

@Валер@ 2 / 0 / 1 Регистрация: 25.01.2013 Сообщений: 33
		1
	Рекурсия: печать десятичной записи целого положительного числа 01.11.2013, 13:33. Показов 1370. Ответов 1 Метки нет (Все метки) Используя процедуру write(x) только для x = 0, 1, ..., 9, напишите рекурсивную процедуру печати десятичной записи целого положительного числа x. Это надо сделать на консоли... А как не знаю 0

	01.11.2013, 18:17

Рекурсия: печать десятичной записи целого положительного числа

Решение