Question

Изменить программу так, чтобы находилась самая большая цифра целого числа N, введенного с клавиатуры.
НА ОХОТНИКОВ ЗА БАЛАМИ - БАН!!!!!

Answer 1

Ответ:

program z1;  

var N,m: integer;  

begin  

write ('N = ');

readln (N);

m:=N mod 10;

while N <> 0 do

begin

if N mod 10 > m then m:=N mod 10;

N:=N div 10

end;

write ('Самая большая цифра числа ',m);

end.