Question

Составьте программу определения наибольшей цифры в записи данного натурального числа.

Answer 1

program MaxDigit;
var   Number, Digit, Max: integer;
begin   writeln('Введите натуральное число: ');   readln(Number);
     Max := -1;
     while Number > 0 do   begin     Digit := Number mod 10;     if Digit > Max then       Max := Digit;     Number := Number div 10;   end;
     writeln('Наибольшая цифра в числе: ', Max);
     readln; end.