Cod sursa(job #681753)

Utilizator andy95Ianc Andrei andy95 Data 17 februarie 2012 18:51:13
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)or(p=1) then nr:=nr+1;
       q:=q+1;
       end;
  p:=p+1;
  end;
write(g,nr);
close(f);close(g);
end.