Pagini recente » Borderou de evaluare (job #3123941) | Rezultatele filtrării | Rezultatele filtrării | Rezultatele filtrării | Cod sursa (job #345154)
Cod sursa(job #345154)
program fractii;
var n,p,q,i,l,max:longint;f,g:text;a:byte;
begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
readln(f,n);
for p:=1 to n do begin
q:=0;
for q:=1 to n do begin
if p>q then max:=p else max:=q;
for i:=2 to max div 2+4 do
if (p mod i=0)and(q mod i=0)then a:=1;
if a=0 then inc(l); a:=0;
end;
end;
write(g,l);
close(f);
close(g);
end.