Составьте для графического исполнителя Чертёжник алгоритмы рисования символов «Е», «П», «Б», «Ч». «Ц», «Ш». На проверку нужно прислать алгоритмы и результаты работы алгоритмов в виде скриншотов окна с отображением кодов и результатов работы. Пришлите не текстом, а скриншотом кода и результата!

использовать Чертежник

алг буквы

нач

е

п

б

ч

ц

ш

кон

алг е

нач

опустить перо

сместиться на вектор (2,0)

сместиться на вектор (-2,0)

сместиться на вектор (0,2)

сместиться на вектор (2,0)

сместиться на вектор (-2,0)

сместиться на вектор (0,2)

сместиться на вектор (2,0)

поднять перо

сместиться на вектор (1,-4)

кон

алг п

нач

опустить перо

сместиться на вектор (0,4)

сместиться на вектор (2,0)

сместиться на вектор (0,-4)

поднять перо

сместиться на вектор (1,0)

кон

алг б

нач

опустить перо

сместиться на вектор (2,0)

сместиться на вектор (0,2)

сместиться на вектор (-2,0)

сместиться на вектор (0,-2)

сместиться на вектор (0,4)

сместиться на вектор (2,0)

поднять перо

сместиться на вектор (1,0)

кон

алг ч

нач

опустить перо

сместиться на вектор (0,-2)

сместиться на вектор (2,0)

сместиться на вектор (0,2)

сместиться на вектор (0,-4)

поднять перо

сместиться на вектор (1,4)

кон

алг ц

нач

опустить перо

сместиться на вектор (0,-4)

сместиться на вектор (2,0)

сместиться на вектор (0,4)

сместиться на вектор (0,-4)

сместиться на вектор (1,0)

сместиться на вектор (0,-1)

поднять перо

сместиться на вектор (1,5)

кон

алг ш

нач

опустить перо

сместиться на вектор (0,-4)

сместиться на вектор (1,0)

сместиться на вектор (0,4)

сместиться на вектор (0,-4)

сместиться на вектор (1,0)

сместиться на вектор (0,4)

кон

8, 1, 4, 1, 5, 9, 6, 7, 2

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.