Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ



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


765645656
6,5
144
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам