Cod sursa(job #5448)

Utilizator tferenc55takacs Ferenc tferenc55 Data 12 ianuarie 2007 15:37:10
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.27 kb
Raporteaza aceasta sursa 
program ffff;
var
f:text;
n,i,j,mi:longint;
begin
 assign(f,'fractii.in');
 reset(f);
 readln(f,n);
 close(f);
 for i:=1 to n do
  for j:=1 to n do
   if (j=1) and (i mod j<>0) then inc(mi);
 assign(f,'fractii.out');
 rewrite(f);
 write(f,mi);
 close(f);
 end.