Написать программу, которая получает на вход число произвольной длины меньше, чем 9 знаков и показывает, какие в нем повторяющиеся цифры
БЫСТРЕЕ!11! Мог не правильно понять вопрос, напишите хоть что-нибудь похожее ,срочно нужно


var i,n,k: integer;
    a: array[0..9] of integer;
begin
  write(число: );  readln(n);
  for i:=0 to 9 do a[i]:=0;
  while n>0 do
  begin
    k:=n mod 10;
    a[k]:=a[k]+1;     
    n:=n div 10;
  end;  
  for i:=0 to 9 do 
  if a[i]>1 then writeln(повторяющаяся цифра: ,i);
end.

число: 1022315
повторяющаяся цифра: 1
повторяющаяся цифра: 2


Оцени ответ
Не нашёл ответ?

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

Найти другие ответы

Загрузить картинку
Самые новые вопросы