Помогите пожалуйста! 8класс! Ввести натуральное число и определить, какие цифры встречаются несколько раз. Решить с помощью цикла с условием! Заранее

+ 0 -

Mari14

10 июля 2016 г., 5:05:47 (7 лет назад)

program asd;
uses crt;
var s,s1:string;
i,j,k: integer;
b1,b2:boolean;
begin
writeln('Vvedite naturalnoe chislo:');
readln(s);
for i:=1 to length(s) do
begin
b1:=false;
b2:=true;
for j:=1 to length(s) do
begin
if i<>j then
if s[i]=s[j] then
begin
b1:=true;
for k:=1 to length(s1) do
if s[i]=s1[k] then b2:=false;
end;
end;
if b1 and b2 then s1:=s1+s[i]+' ';
end;
if length(s1)<>0 then
begin
writeln('Повторяются: ',s1);
end
else writeln('Ничего не повторяется');
readln;
end.