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

Programm · 03.04.2016, 18:27

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

Vladimir_S · 03.04.2016, 18:39

Цитата:

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

03.04.2016, 18:27	#1 (permalink)
Programm Новичок Регистрация: 22.12.2015 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Напишите функцию, которая возвращает наибольшую цифру в данном натуральном числе 1.Напишите функцию, которая возвращает наибольшую цифру в данном натуральном числе. 2.Напишите функцию, которая возвращает наибольшую цифру в данном натуральном числе.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070