Ответ(ы) на вопрос:
Гостьvar n,i : longint; st : string; ch : char; begin readln(n); str(n,st); ch:=''; for i:=1 to length(st) do if st[i]>ch then ch:=st[i]; writeln(ch); end.
Не нашли ответ?
Похожие вопросы