Cod sursa(job #288900)
Utilizator | Birsan Dragos hominidu | Data | 26 martie 2009 10:40:12 |
---|---|---|---|
Problema | Frac | Scor | 20 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.39 kb |
var f,g:text;
a,b:longint;
ct,ct2:longint;
function cmmdc(m,n:longint):longint;
begin
if n = 0 then
cmmdc:=m else
cmmdc:=cmmdc(n,m mod n) ;
end;
BEGIN
assign(f,'frac.in');
reset(f);
read(f,a,b);
close(f);
ct:=0; ct2:=0;
while ct2 < b do
begin
ct:=ct+1;
if cmmdc(ct,a) = 1 then
ct2:=ct2+1;
end;
assign(g,'frac.out');
rewrite(g);
writeln(g,ct);
close(g);
END.