Напишите функцию, которая возвращает наибольшую цифру в данном натуральном числе

Programm · 3 Апр 2016

Напишите функцию, которая возвращает наибольшую цифру в данном натуральном числе

1.Напишите функцию, которая возвращает наибольшую цифру в данном натуральном числе.
2.Напишите функцию, которая возвращает наибольшую цифру в данном натуральном числе.

Vladimir_S · 3 Апр 2016

Programm написал(а):
1.Напишите функцию, которая возвращает наибольшую цифру в данном натуральном числе.

Код:

Var
 N:LongInt;

Function Max(P:LongInt):Byte;
var
 m,Mx:Byte;
 C:Longint;
begin
 Mx:=0;
 C:=P;
 repeat
  m:= C mod 10;
  if m>Mx then Mx:=m;
  C:= C div 10;
 until C=0;
 Max:=Mx;
end;

Begin
 Write('N = ');
 Readln(N);
 Writeln('Result: ',Max(N));
 Readln
End.

Programm написал(а):
2.Напишите функцию, которая возвращает наибольшую цифру в данном натуральном числе.

Код:

Var
 N:LongInt;

Function Max(P:LongInt):Byte;
var
 m,Mx:Byte;
 C:Longint;
begin
 Mx:=0;
 C:=P;
 repeat
  m:= C mod 10;
  if m>Mx then Mx:=m;
  C:= C div 10;
 until C=0;
 Max:=Mx;
end;

Begin
 Write('N = ');
 Readln(N);
 Writeln('Result: ',Max(N));
 Readln
End.

Напишите функцию, которая возвращает наибольшую цифру в данном натуральном числе

Programm

Ученик

Vladimir_S

Ученик