Cod sursa(job #681751)

Utilizator andy95Ianc Andrei andy95 Data 17 februarie 2012 18:44:57
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
program fracti;
var p,q,n,nr:longint;
    f,g:text;
begin
assign(f,'fractii.in');
reset(f);
assign(g,'fractii.out');
rewrite(g);
read(f,n);
nr:=1;
p:=1;
while p<=n do begin
q:=1;
while q<=n do begin
if (p mod q<>0) then nr:=nr+1;
if (q mod p<>0)and(p=1)then nr:=nr+1;
q:=q+1;
end;
p:=p+1;
end;
write(g,nr);
close(f);close(g);
end.