Pascal

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

Question

Информатика

Паша

1 августа, 12:18

Pascal

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

+2

Ответы (2)

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

Таися · Answer 1

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.

Федора · Answer 2

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.

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

Pascal

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