Cod sursa(job #997397)

Utilizator lraduRadu Lucut lradu Data 13 septembrie 2013 23:26:26
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
 var   f,g:text;
  n,i,s,j,c:integer;
 begin
 assign (f,'fractii.in'); reset (f);
 assign (g,'fractii.out'); rewrite (g);
 s:=1;
 readln(f,n);
 for i:= 1 to n do
     for j:= 1 to n do begin
     c:=(i+j) mod 2;
     if (i=1) or (j=1)then c:=1;
         if (i<>j) and (c<>0) then  inc(s); end;
 write (g,s);
 close(f); close(g);
 end.