Ввести натуральное число и определить, какие цифры встречаются несколько раз. (Турбо Паскаль)

Question

Информатика

Летта

22 августа, 00:30

Ввести натуральное число и определить, какие цифры встречаются несколько раз. (Турбо Паскаль)

+3

Ответы (1)

Знаете ответ на вопрос?

Геннадьич · Answer 1

Var a: string;

i, j: integer;

c: char;

begin

readln (i) ;

a : = inttostr (i) ;

for i : = 1 to length (a) do

begin

c : = a[i];

for j : = 1 to length (a) do

begin

if a[i+j] = c then writeln (a[j+i]) ;

end;

end;

end.

Вот такие пироги х)