Pagini recente » Cod sursa (job #2983876) | Diferente pentru template/algoritmiada-2016 intre reviziile 2 si 1 | Cod sursa (job #2722131) | Cod sursa (job #3270620) | Cod sursa (job #421149)
Cod sursa(job #421149)
program copii;
var n,i,j,g:integer;
v:array[1..20,1..20]of integer;
f,h:text;
begin
assign(f,'copii.in');
assign(h,'copii.out');
reset(f);
rewrite(h);
read(f,n);
for i:=1 to n do
for j:=1 to n do
read(f,v[i,j]);
g:=1;
g:=(n-1)*n div 2;
if g=0 then g:=1;
writeln(h,g);
close(f);
close(h);
end.