Pagini recente » Monitorul de evaluare | Borderou de evaluare (job #1099215) | Cod sursa (job #877810) | Cod sursa (job #110354)
Cod sursa(job #110354)
var a,b,cor:array[1..50] of real;
ok:array[1..50]of boolean;
s:real;
f,g:text;
i,j,n:longint;
function nrkkt(x:real):boolean;
begin
while frac(x/5) =0 do x:=x/5;
while frac(x/3) =0 do x:=x/3;
while frac(x/2) =0 do x:=x/2;
if x<>1 then nrkkt:=false else nrkkt:=true;
end;
{--------------------}
begin
assign(f,'aliens.in'); reset(f);
assign(g,'aliens.out'); rewrite(g);
readln(f,n);
for i := 1 to n do begin
readln(f,a[i],b[i]);
cor[i]:=a[i]/b[i];
if (nrkkt(a[i]) and nrkkt(b[i])) then ok[i]:=true else ok[i]:=false;
end;
s:=1;
for i := 1 to n do
if (cor[i]>1) and ok[i] then s:=s*cor[i];
writeln(g,s:0:0);
close(f);
close(g);
end.