Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Дано натурально число. Найти его максимальную цифру, используя цикл while. (Паскаль)

Ответ оставил Гость

Program max;
uses  crt;
var n, x:integer;

begin
clrscr;
Write(N = );
readln(n);

while abs(n)>0 do
begin
if  abs(n mod 10) > x then
x:= abs(n mod 10);
n:=n div 10;
end;

write(Наибольшая цифра x = , x);
end.