Ответы на вопрос:
Var n,x,max: integer; begin readln(n); while n> 0 do begin x: =n mod 10; if x> max then max: =x; n: =n div 10; end; writeln('максимальная цифра: ',max); end.
Популярно: Информатика
-
kristina71016.04.2021 18:45
-
noname363611.10.2021 13:37
-
mullyminovam25.02.2023 21:18
-
Karinago24.01.2020 18:09
-
12345653107.01.2020 21:27
-
FleachBeast10.09.2020 12:52
-
Maximgrechka23.11.2020 21:32
-
khleskina0208.11.2020 18:38
-
оченьнеочень25.01.2021 16:32
-
Svetik22606.03.2023 08:08