Дано натуральное число. найти максимальную цифру. в паскале. через while..

Question

Дано натуральное число. найти максимальную цифру. в паскале. через while..

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.