<span><span>1.
</span>Av¬B</span>
<span><span>2.
</span>A&BvC</span>
<span><span>3.
</span>A&B</span><span>
</span>
Var
f:Text;
n,k:integer;
begin
Assign(f,'input.txt');
Reset(f);
n:=0;
while not Eof(f) do begin Read(f,n); Inc(k) end;
Close(f);
Assign(f,'output.txt');
Rewrite(f);
Writeln(f,k); Writeln(k);
Close(f)
end.
<u>Вспомогательный алгоритм:</u>
использовать Чертежник
алг
нач
опустить перо
сместиться на вектор(0,3)
сместиться на вектор(4,0)
сместиться на вектор(0,-3)
сместиться на вектор(-4,0)
поднять перо
сместиться на вектор(1,1)
опустить перо
сместиться на вектор(0,1)
сместиться на вектор(2,0)
сместиться на вектор(0,-1)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор (-1,2)
опустить перо
сместиться на вектор(2,2)
сместиться на вектор(2,-2)
<span>кон
<u>Основной алгоритм:</u>
</span>использовать Чертежник
алг
нач
нц 5 раз
опустить перо
сместиться на вектор(0,3)
сместиться на вектор(4,0)
сместиться на вектор(0,-3)
сместиться на вектор(-4,0)
поднять перо
сместиться на вектор(1,1)
опустить перо
сместиться на вектор(0,1)
сместиться на вектор(2,0)
сместиться на вектор(0,-1)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор (-1,2)
опустить перо
сместиться на вектор(2,2)
сместиться на вектор(2,-2)
поднять перо
сместиться на вектор(4,-3)
кц
<span>кон</span>
Ответ:
12
Объяснение:
Элементарная арифметика 36/6 = 6 , а 6+6 = 12