Предмет: Информатика,
автор: mays20155
Найди наибольшую цифру в записи числа
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Биология,
автор: crosslinks34
Предмет: Литература,
автор: dasha9828
Предмет: Русский язык,
автор: 2ka4an2
Предмет: Биология,
автор: лехакаб
Предмет: Математика,
автор: elenavasilevna72