Задать вопрос Регистрация
Помочь другим

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

Ответы 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);  readlnend. 

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years