С клавиатуры вводят 4 числа. Определить есть ли среди них кратные 6.информатика 9 класс​

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('нет');

Объяснение:

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)

кон

Объяснение:

Смотри картинки