Цитата:
Сообщение от 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.