Var n,m,max,min:integer; Begin write('Введите число n: ');readln(n); max:=-10;min:=10; While n<>0 do Begin m:=n mod 10; if m>max then max:=m; if m<min then min:=m; n:=n div 10; End; writeln('Максимальная цифра числа: ',max); writeln('Минимальная цифра числа: ',min); End.
Begin
write('Введите число n: ');readln(n);
max:=-10;min:=10;
While n<>0 do
Begin
m:=n mod 10;
if m>max then max:=m;
if m<min then min:=m;
n:=n div 10;
End;
writeln('Максимальная цифра числа: ',max);
writeln('Минимальная цифра числа: ',min);
End.