Cod sursa(job #6118)

Utilizator Marinescu_DanyelMarinescu George Marinescu_Danyel Data 17 ianuarie 2007 18:09:02
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.29 kb
Raporteaza aceasta sursa 
Program Fractiile;
var n,p,q,k:longint;
    f,g:text;
Begin
 assign(f,'fractii.in');
 reset(f);
 read(f,n);
 close(f);
 k:=0;
 For p:=1 to n do
  For q:=1 to n do
  If (p div q=0)or(p div q>1) then
   k:=k+1;
 assign(g,'fractii.out');
 rewrite(g);
 writeln(g,k);
 close(g);
End.