Дано целое число N найти самую максимальную цифру этого числа
Дано целое число N найти самую максимальную цифру этого числа
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы