Какое именно? Девятое, десятое или одиннадцатое?
K=16=2 в степени 4
V= M*N*a
V= 640*288*4=737280бит=92160 байт=90 кб
ответ 90 кб
Var
N,A,P:integer;
Begin
P:=1;
Write('N = ');Read(N);
For N:= 1 to N do
Begin
Read(A);
if A > 0 then P:=P*A
End;
WriteLn(P);
End.
For i:=1 to n do begin
if not(a[i] mod 3=0) or (a[i]=0) then
a[i]:=1
else
k:=a[i];
end;
for i:=1 to n do
if (a[i]<k) and (a[i]<>1) then
k:=a[i];
j:=0;
for i:=1 to n do
if a[i]=k then
j:=j+1;
end;
writeln(j);
end.
read(n);
if (n>99) and (n<1000) then writeln('Yes');