Дано натурально число. Найти его максимальную цифру, используя цикл while. (Паскаль)

Question

Информатика

Прокл

18 сентября, 20:19

Дано натурально число. Найти его максимальную цифру, используя цикл while. (Паскаль)

+3

Ответы (1)

Знаете ответ на вопрос?

Перпетуя · Answer 1

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.