Var d,v,i1,i2:byte;
a:array[1..3,1..4] of integer;
begin
for i1:=1 to 3 do
for i2:=1 to 4 do
begin
read(a[i1,i2]);
if a[i1,i2]>=0 then d:=d+1; else v:=v+1;
end;
writeln('Dodatnih - ',d,' Vidyemnuh - ',v);
<span>end.</span>
Номер 1
K=I/i
N=2^i
16=2^4
K=512/4=128 символов
Номер 2
I=n*i*k
N=2^i
i=I/n*k
i=1/16*1024*8/2*256=512/512=1
N=2
Локальная-глобальная-локальная-глобальная-глобальная-глобальная
function p(k,n:integer):longin;
var i:integer;
begin
s:=1;
for i:=k to n do begin
if i mod 3<>0 then
s:=s*i;
endif;
p:=s;
end;