дано натуральное число N. Составте программу, котора определяет, сколько раз в числе N содержится наибольшая цифра этого числа.

Question

Информатика

Митяша

26 января, 16:33

дано натуральное число N. Составте программу, котора определяет, сколько раз в числе N содержится наибольшая цифра этого числа.

+4

Ответы (1)

Знаете ответ на вопрос?

Иннокентий · Answer 1

var

max, c, t, count:integer;

begin

write ('c = ') ;

readln (c) ;

t : = c;

max : = t mod 10;

while t 0 do

begin

if max < t mod 10 then

max : = t mod 10;

t : = t div 10;

end;

t : = c;

count : = 0;

while t 0 do

begin

if t mod 10 = max then

count : = count + 1;

t : = t div 10;

end;

writeln ('Count = ', count) ;

readln

end.