Var y, i, n: integer;
begin
writeln('Введи n');
readln(n);
y := 1;
for i := 1 to n do
y := y *( 2 * i);
writeln(y);
<span>end.</span>
22байта=176бит
15кбайта=117760байт
156=163577856байт
Var h,b,k,p,d:real;
begin
write('Введите В, К, П:');
readln(b,k,p);
writeln(' H','Д':8);
h:=2;
repeat
d:=100*h/(100-b)/(100-k)/p;
writeln(h:1:1,d:10:3);
h:=h+0.1
until h>4.0001 {Вообще-то здесь ровно 4 надо написать, но у меня тогда значение 4 не просчитывается, хотя должно бы}
<span>end.</span>
Ввод: x ^ y С/П.
П1 -> П0 x=0 07 0 С/П ИП1 x=0 12 0 С/П
ИП1 x>=0 22 ИП0 x>=0 20 1 С/П 2 С/П
ИП0 x<0 27 3 С/П 4 С/П
С учётом моментов, когда точки лежат на осях.
110001- двоичный код числа 49,
поэтому ответ: 6