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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
