дано натуральное число. найти максимальную цифру.

в паскале.


через while..

1

Ответы и объяснения

  • Kitsu
  • почетный грамотей
2012-11-20T16:03:18+00:00

var n,k:integer;

begin

readln(n);

k:=n mod 10;

while n>0 do begin

      n:=n div 10;

      if k<(n mod 10) then k:=n mod 10;

      if k=9 then break;

end;

writeln(k);

end.