Створити кросворд на 20 понять по темі Веб технології
10 понять по горизонталі і 10 понять по вертикалі.

program z1;
var
i,j,m,k,z,x,l:integer;
begin
readln(m);
for i:=0 to m do begin z:=1;
if i=0 then z:=1 else begin
x:=i;
while x<>0 do begin
z:=z*4;
x:=x-1;
end; end;
if ((z<m) and (z*4>m)) then writeln(i);
if z=m then writeln(i-1);
end;
end.

program z2;
var
i,j,n,k,z,x,l:integer;
begin
readln(n);
for i:=0 to n do begin z:=1;
if i=0 then z:=1 else begin
x:=i;
while x<>0 do begin
z:=z*2;
x:=x-1;
end; end;
if ((z>n) and (z/2<n)) then writeln(i);
if z=n then writeln(i+1);
end;
end.

program z3;
var
i,j,n,k,z,x,s:integer;
begin
readln(n); s:=0;
for i:=1 to n do begin z:=1;
for j:=i to 2*i do
z:=z*j;
s:=s+z; end;
writeln(s);
end.

время 2 ночи 

...думаю пора спать ) 

Укажите, значение переменной P после выполнения данного фрагмента программы:

P:=13;

WHILE P>0 DO P:=P-3;

ответ -2

Укажите, значение переменной L после выполнения данного фрагмента программы:

L:=1;

WHILE L<0 DO L:=L+2;

ответ 1

Укажите, сколько раз выполнится тело цикла:

L:=10;

WHILE L>0 DO L:=L-3;

ответ 4

Укажите, сколько раз выполнится тело цикла с данным заголовком:

K:=-1;

WHILE K<3 DO K:=K+2;

ответ 2

Укажите, значение переменной К после выполнения данного фрагмента программы:

K:=-1;

WHILE K<4 DO K:=K+2;

ответ 5