Верно ли записан текст? крысы и мышка

Нет

Мыши и крысы

ответ:Решение

АЛГОРИТМ МАЛЕНЬКИЕ КВАДРАТЫ

алг квадраты_1

нач

   нц 5 раз

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

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

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

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

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

      поднять перо

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

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

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

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

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

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

      поднять перо

   кц

кон

АЛГОРИТМ БОЛЬШИЕ КВАДРАТЫ

алг квадраты_2

нач

   нц 4 раз

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

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

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

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

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

      поднять перо

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

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

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

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

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

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

      поднять перо

   кц

кон

АЛГОРИТМ ПРЯМОУГОЛЬНИКИ

алг прямоугольники_1

нач

   нц 5 раз

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

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

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

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

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

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

      

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

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

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

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

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

      поднять перо

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

   кц

кон

АЛГОРИТМ УЗОР

алг часть_1

нач

   нц 4 раз

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

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

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

      поднять перо

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

   кц

кон

алг часть_2

нач

   нц 4 раз

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

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

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

      поднять перо

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

   кц

кон

алг часть_3

нач

   нц 4 раз

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

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

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

      поднять перо

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

   кц

кон

алг часть_4

нач

   нц 4 раз

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

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

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

      поднять перо

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

   кц

кон

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

алг узор_1

нач

   часть_1

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

   часть_2

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

   часть_3

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

   часть_4

кон

АЛГОРИТМ УЗОР 2

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

алг узор_2

нач

   часть_3

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

   часть_4

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

   часть_1

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

   часть_2

кон

Объяснение:

Анимации делать не умею и нечего не знаю вот код:

Объяснение:

program eg;

uses graph,crt;

var

y,x,i,n,d,m,j:integer;

begin

randomize;

detectgraph(d,m);

initgraph (d,m,' \TP\GRAPH');

for i:=1 to 300 do begin

cleardevice;

setcolor(12);

line(150,380-i,150,420-i);

line(170,380-i,170,460-i);

line(190,380-i,190,420-i);

setcolor(5);

for j:=1 to 200 do begin

putpixel(random(300) ,410-j, random(100) );

end;

setcolor(1 );

setbkcolor(15);

rectangle(120,160-i,220,380-i);

line(170,80-i,120,160-i);

line(170,80-i,220,160-i);

circle(170,210-i,35);

if i<100 then begin

line(120,280-i,80,380-i);

line(80,380-i,120,380-i);

line(120,280-i,120,380-i);

line(220,280-i,260,380-i);

line(220,380-i,260,380-i);

line(220,380-i,220,380-i);

end

else begin

delay (10);

end;

readkey;

end;

end.