Pascal ABC.

Дано натуральное число "n". Составьте программу которая выводит максимальную цифру этого числа.

Question

Информатика

Екатерина

7 октября, 08:46

Pascal ABC.

Дано натуральное число "n". Составьте программу которая выводит максимальную цифру этого числа.

+3

Ответы (1)

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

Нюся · Answer 1

var n, m, a : integer;

begin

readln (n) ;

While n > 0 do begin

a : = n mod 10;

if a > m then

m : = a;

n : = n div 10;

end;

writeln (m) ;

end.

Pascal ABC.Дано натуральное число "n". Составьте программу которая выводит максимальную цифру этого числа.

Pascal ABC.

Дано натуральное число "n". Составьте программу которая выводит максимальную цифру этого числа.