Cod sursa(job #77144)
| Utilizator |  Alexandru Bunget ioalexno1 |
Data | 13 august 2007 13:20:02 |
|---|---|---|---|
| Problema | Frac | Scor | 20 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.35 kb |
program p1;
var f:text;
i,d,e,g,n,p,r:longint;
begin
assign(f,'frac.in');reset(f);
read(f,n,p);
close(f);
i:=0;
d:=0;
repeat
i:=i+1;
e:=i;
g:=n;
r:=e mod g;
while r<>0 do
begin
e:=g;
g:=r;
r:=e mod g;
end;
if g=1 then d:=d+1;
until d=p;
assign(f,'frac.out');rewrite(f);
write(f,i);
close(f);
end.