Pascal

Вводится случайное число, вывести все цифры этого числа, которые встречаются в нем не менее двух раз

Question

Информатика

Афиноген

23 августа, 11:44

Pascal

Вводится случайное число, вывести все цифры этого числа, которые встречаются в нем не менее двух раз

+4

Ответы (2)

Знаете ответ?

Зоя · Answer 1

Program num1;

var a:array[1 ... 9] of longint;

i, n:longint;

begin

readln (n) ;

for i:=0 to 9 do a[i]:=0;

while n>=1 do

begin

a[n mod 10]:=a[n mod 10]+1;

n:=floor (n/10) ;

end;

for i:=0 to 9 do

if a[i]>2 then writeln (i) ;

end.

Лилиана · Answer 2

Var

n, i: integer;

a: array [0 ... 9] of integer;

begin

for i : = 0 to 9 do

a[i] : = 0;

readln (n) ;

while (n 0) do

begin

inc (a[n mod 10]) ;

n : = n div 10;

end;

for i : = 0 to 9 do

if (a[i] < 2) then

write (a[i],' ') ;

end.

PascalВводится случайное число, вывести все цифры этого числа, которые встречаются в нем не менее двух раз

Pascal

Вводится случайное число, вывести все цифры этого числа, которые встречаются в нем не менее двух раз