Cod sursa(job #141084)

Utilizator HoriaClementHoriaC HoriaClement Data 22 februarie 2008 18:57:04
Problema Numarare triunghiuri Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.2 kb
var n,i,j,k:integer;
    f,g:text;
begin
assign(f,'nrtri.in');reset(f);
assign(g,'nrtri.out');rewrite(g);
read(f,n);
for i:=1 to n do
    read(f,k);
write(g,n div 2);
close(f);
close(g);
end.