Question

9класс. сделайте программу в паскале ввести натуральное число и определить, какие цифры встречаются несколько раз, если никакие не повторяются вывести: "цифры не повторяются." у меня получилось ну это не правильно! program five; var n,m,i,j,k: integer; begin write('введите число: '); readln(n); for i: =0 to 9 do begin k: =0; m: =n; while m< > 0 do begin j: =m mod 10; if j=i then k: =k+1; m: =m div 10; end; writeln('цифра ',i,' встречается ',k,' раз'); end; end.

Answer 1

Program nd;
var n, n1,d, d1: longint;
k,a,c: integer;
b: boolean;
begin
write('Введите число: ');
readln(n);
b:= false;
k:=0;
while (n>9) and (not b) do
begin
d:= n mod 10;
n1:= n div 10;
while (n1>0) and (not b) do
begin
d1:= n1 mod 10;
b:= d1 = d;
n1:= n1 div 10;
end;
n:= n div 10;
end;
while n<>0 do
begin
c:=n mod 10;
if c=d1 then k:=k+1;
n:=n div 10;
end;
if b then writeln('в этом числе повторяется ',k+1,' раз цифра ',d1)
else writeln('цифры не повторяются');
end.