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

Ответы (1)

Султанат 21.11.2025 3

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.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ