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

Question

Информатика

Митраша

21 августа, 03:31

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

+5

Ответы (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.