Рекурсия. Вывести в обратном порядке цифры целого положительного числа n

@КРИС31 · Регистрация: 18.03.2012

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

Составить рекурсивную процедуру,которая выдает на печать в обратном порядке цифры целого положительного числа n

@Puporev · 24.04.2012, 17:46

Pascal

uses crt;
var ch,new:longint;
procedure pr_rec(ch:longint;var new:longint);
begin
if ch<>0 then
 begin
  new:=new*10+(ch mod 10);
  pr_rec(ch div 10,new);
 end;
end;
begin
clrscr;
write('ch=');
readln(ch);
pr_rec(ch,new);
writeln(new);
readln
end.

@КРИС31 0 / 0 / 0 Регистрация: 18.03.2012 Сообщений: 20
		1
	Рекурсия. Вывести в обратном порядке цифры целого положительного числа n 24.04.2012, 17:41. Показов 5498. Ответов 1 Метки нет (Все метки) Составить рекурсивную процедуру,которая выдает на печать в обратном порядке цифры целого положительного числа n 0

	24.04.2012, 17:46

Рекурсия. Вывести в обратном порядке цифры целого положительного числа n

Решение