Ввести натуральное число и определить, какие цифры встречаются несколько раз. Пример: Введите число больше = 0: 2323 Повторяются: 2, 3
Ввести натуральное
число и определить, какие цифры встречаются несколько раз.
Пример: Введите число >= 0:
2323
Повторяются:
2, 3
Гость
Ответ(ы) на вопрос:
Гостьvar
a, c : integer;
con, rep : array [0..9] of boolean;
begin
read (a);
while a > 0 do
begin
c := a mod 10;
a := a div 10;
if not con[c] then con[c] := true
else rep[c] := true;
end;
for c := 0 to 9 do
if rep[c] then write (c, ' ');
end.
Не нашли ответ?
Похожие вопросы