Задача: найти самую большую цифру целого числа. В турбо паскаль.

Question

Информатика

Велимир

23 апреля, 18:12

Задача: найти самую большую цифру целого числа. В турбо паскаль.

+5

Ответы (1)

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

Леонида · Answer 1

Program bigDigit;

var n, maxdig: integer;

begin

maxdig : = 0;

readln (n) ;

if (n < 0) then n : = - n;

while n > 0 do

begin

if (n mod 10 > maxdig) then maxdig : = n mod 10;

n : = n div 10;

end;

writeln (maxdig) ;

end.