Паскаль составьте программу определения наибольшей цифры в записи данного натурального числа

Question

Информатика

Петруся

27 апреля, 15:35

Паскаль составьте программу определения наибольшей цифры в записи данного натурального числа

+2

Ответы (1)

Знаете ответ?

Юлиан · Answer 1

Program prog;

uses crt;

var x, y:integer;

begin

clrscr;

write ('x = ') ;

readln (x) ;

while abs (x) >0 do begin

if abs (x mod 10) >y then y: = abs (x mod 10) ;

x: = x div 10;

end;

writeln ('Наибольшая цифра чсла = ', y) ;

end.