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

Question

Информатика

Евномия

14 августа, 14:41

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

+3

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