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

Question

Информатика

Катюша

29 мая, 14:55

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

+1

Ответы (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.

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