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

Question

Информатика

Митраша

12 августа, 03:19

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

+1

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