дано целое число N найти самую максимальную цифру этого числа
Ответы на вопрос
Ответил Аноним
0
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.
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.
Новые вопросы