Предмет: Информатика,
автор: 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.
Похожие вопросы
Предмет: Химия,
автор: fedorovas57
Предмет: Українська мова,
автор: bondaruktatana84
Предмет: Українська мова,
автор: marko4567ga
Предмет: Биология,
автор: лехакаб
Предмет: Математика,
автор: elenavasilevna72