1.
использовать Чертежник
алг
нач
опустить перо
нц 6 раз
сместиться на вектор (0,1)
сместиться на вектор (6,0)
сместиться на вектор (0,-1)
сместиться на вектор (-6,0)
сместиться на вектор (0,1)
кц
поднять перо
сместиться в точку (-1,-1)
кон
2.
использовать Чертежник
алг
нач
опустить перо
нц 6 раз
сместиться на вектор (0,6)
сместиться на вектор (1,0)
сместиться на вектор (0,-6)
сместиться на вектор (-1,0)
сместиться на вектор (1,0)
кц
поднять перо
сместиться в точку (-1,-1)
кон
3.
использовать Чертежник
алг
нач
опустить перо
нц 6 раз
сместиться на вектор (0,1)
сместиться на вектор (6,0)
сместиться на вектор (0,-1)
сместиться на вектор (-6,0)
сместиться на вектор (0,1)
кц
поднять перо
сместиться в точку (0,0)
опустить перо
нц 6 раз
сместиться на вектор (0,6)
сместиться на вектор (1,0)
сместиться на вектор (0,-6)
сместиться на вектор (-1,0)
сместиться на вектор (1,0)
кц
поднять перо
сместиться в точку (-1,-1)
кон
Объяснение:
Смотри картинки
1.
использовать Чертежник
алг
нач
опустить перо
нц 6 раз
сместиться на вектор (0,1)
сместиться на вектор (6,0)
сместиться на вектор (0,-1)
сместиться на вектор (-6,0)
сместиться на вектор (0,1)
кц
поднять перо
сместиться в точку (-1,-1)
кон
2.
использовать Чертежник
алг
нач
опустить перо
нц 6 раз
сместиться на вектор (0,6)
сместиться на вектор (1,0)
сместиться на вектор (0,-6)
сместиться на вектор (-1,0)
сместиться на вектор (1,0)
кц
поднять перо
сместиться в точку (-1,-1)
кон
3.
использовать Чертежник
алг
нач
опустить перо
нц 6 раз
сместиться на вектор (0,1)
сместиться на вектор (6,0)
сместиться на вектор (0,-1)
сместиться на вектор (-6,0)
сместиться на вектор (0,1)
кц
поднять перо
сместиться в точку (0,0)
опустить перо
нц 6 раз
сместиться на вектор (0,6)
сместиться на вектор (1,0)
сместиться на вектор (0,-6)
сместиться на вектор (-1,0)
сместиться на вектор (1,0)
кц
поднять перо
сместиться в точку (-1,-1)
кон
Объяснение:
Смотри картинки
for i := 0 to 3 do
begin
read(a)
k := 0
if(a mod 6) k := k+1;
end;
if(k > 0) then write('да');
else write('нет');
Объяснение: