Помогите пожалуйста решить в паскале. Ввести натуральное число и найти,какие числа

Помогите пожалуйста решить в паскале. Ввести натуральное число и найти,какие цифры встречаются несколько раз.

Задать свой вопрос
Николай Цингер
765645656
Кирилл Лубский
Помогите пожалуйста
Элина
уммм
Moskolu Larisa
алгорит 1
Юра Горковшок
метод то 1
Arsenij Kuchanskij
а интерфейс различный
Кирилл Городько
флорис, живописуй блок схему и собирай сам)
Ева Бахрева
Через while
Елена Порядкина
Помогите
1 ответ
// PascalABC.NET 3.3, сборка 1549 от 17.10.2017
// Внимание! Если программка не работает, обновите версию!

begin
  ReadInteger.ToString.GroupBy(c-gt;c).Select(c-gt;(c.Key,c.Count)).
      Where(t-gt;t[1]gt;1).Select(t-gt;t[0]).Println(',')
end.

Пример
765645656
6,5
Obrovec Regina
Слишком трудно для 7 класса
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт