Рекурсия. Наибольшая цифра числа.

06.10.2009, 15:57. **Показов** 5414. **Ответов** 1

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

помогите решить задачу с помощью рекурсии (нахождение наибольшей цифры натурального числа)

@Puporev · 06.10.2009, 19:14

Pascal

uses crt;
function Max(n:longint):byte;
var m:byte;
begin
if n<10 then Max:=n{если число состоит из одной цифры, то она является максимальной}
else if n mod 10>Max(n div 10){если последняя цифра больше макс, то она макс}
 then Max:=n mod 10{то она макс}
 else Max:=Max(n div 10);{иначе проверяем следующую с конца цифру}
end;
var a:longint;
begin
clrscr;
write('Введите натуральное число a=');
readln(a);
write('Самая большая цифра=',Max(a));
readln
end.

Anikolays
		1
	Рекурсия. Наибольшая цифра числа. 06.10.2009, 15:57. Показов 5414. Ответов 1 Метки нет (Все метки) помогите решить задачу с помощью рекурсии (нахождение наибольшей цифры натурального числа)

	06.10.2009, 19:14

Рекурсия. Наибольшая цифра числа.

Решение