Ответы на вопрос:
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.
Популярно: Информатика
-
Masika0806.05.2022 17:09
-
alina06alina01.01.2022 15:30
-
Terraria1029914.02.2023 17:17
-
arlanout18.01.2021 02:11
-
vladgodd23.02.2022 15:17
-
magamedaliev15016.05.2021 19:24
-
hickov200314.05.2022 12:23
-
костелои20.12.2020 09:04
-
SmaGe201711.04.2022 22:15
-
bosi979716.08.2020 18:01