VPF::Задача с натуральным числом - Форум программистов

МаргаритаС

Дата 8.10.2009, 15:39 (ссылка)

(голосов:1)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 8.10.2009

Репутация: нет
Всего: нет

Дано натуральное число N. Указать наиболее часто встречающиеся цифры числа N.

В задаче используется целочисленная переменная N, значение которой не превосходит по модулю 2 млрд. Нельзя использовать строковые переменные, массивы или другие структуры.

~FoX~

Дата 9.10.2009, 13:01 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 1
Всего: 68

МаргаритаС, В центр помощи...

--------------------

…множественность никогда не следует полагать без необходимости…

volvo877

Дата 10.10.2009, 11:37 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

~FoX~, может вообще все разделы удалить, оставить только "Центр помощи"? Чего вас так тянет всех раздавать указания, что куда переместить? Не можешь помочь - пройди мимо... Я ж в чужих разделах не отвечаю, если мне там сказать кроме "перенести в ЦП" нечего? Почему здесь кто-то ходит и указывает? Мало того, что раздел практически убили переименованием, так еще и добиваете переносом из него всех тем...

МаргаритаС, как-то вот так:

Код

var
  T, n: longint;
  i, curr: integer;
  max_val, max: integer;

begin
  n := 77000086; { readln(n); }
  max := 0; max_val := 0;

  for i := 0 to 9 do begin
    T := n;
    curr := 0;
    while T > 0 do begin
      if T mod 10 = i then inc(curr);
      T := T div 10;
    end;
    if curr > max then begin
      max := curr; max_val := i;
    end;
  end;

  writeln(max_val, ' (', max, ' times)...');
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »