ПОМОГИТЕ СРОЧНО!!! ОЧЕНЬ ПРОШУ

Читаем из файла число; n1234
c1:= (n1234 mod 10);
c2:= (n1234 div 10) mod 10;
c3:= (n1234 div 100) mod 10;
c4:= (n1234 div 100);
sorted:= true;
repeat
if c1<c2 then begin
c:=c1; c1:=c2; c2:=c; sorted:= false;
end;
if c2<c3 then begin
c:=c2; c2:=c3; c3:=c; sorted:= false;
end;
if c3<c4 then begin
c:=c3; c3:=c4; c4:=c; sorted:= false;
end;
until not sorted;
if c1=c2 then c2:=-1;
if c1=c3 then c3:=-1;
if c1=c4 then c4:=-1;
if c2=c3 then c3:=-1;
if c2=c4 then c4:=-1;
if c3=c4 then c4:=-1;

c:=0;
if n1234 mod c1 = 0 then c:=c+1;
if n1234 mod c2 = 0 then c:=c+1;
if n1234 mod c3 = 0 then c:=c+1;
if n1234 mod c4 = 0 then c:=c+1;
write('Таких цифр '); writeln(c);

if n1234 mod c1 = 0 then write(c1:4);
if n1234 mod c2 = 0 then write(c2:4);
if n1234 mod c3 = 0 then write(c3:4);
if n1234 mod c4 = 0 then write(c4:4);

это мы еще не проходили

раздел по джаве

балл

4 балла

вах)))

Программист в помощь

500 руб решу

Легко и просто. Прочитай внимательно и у тебя все получится.

ВСё помог звони 0632281488 я те скажу скоко гривень скинуть

делим много раз число на 10,
получаем цифры в остатке.
Добавляем цифры во множество, если добавляемая цифра уже там есть - значит число составлено не из различных цифр