Дано натурально число. Найти его максимальную цифру, используя цикл while. (Паскаль)
Дано натурально число. Найти его максимальную цифру, используя цикл while. (Паскаль)
Гость
Ответ(ы) на вопрос:
ГостьProgram max;
uses crt;
var n, x:integer;
begin
clrscr;
Write('N = ');
readln(n);
while abs(n)>0 do
begin
if abs(n mod 10) > x then
x:= abs(n mod 10);
n:=n div 10;
end;
write('Наибольшая цифра x = ', x);
end.
Не нашли ответ?
Похожие вопросы