Из зоопарка на пристань, расстояние между которыми 1,5 км, повели слона. в этот момент от пристани навстречу слону выбежала моська. она добежала до слона, тявкнула на него и побежала обратно на пристань, затем повернула обратно и т.д., пока слон не пришел на пристань. моська двигалась в 8 раз быстрее слона. сколько всего километров пробежала моська?

ответ:

обьект "ракета"                                                                                   1)program raketa;

uses graphabc;   //подключение модуля graphabc

begin

setwindowsize(500,500); //установка размеров графического   окна

setpencolor(clblack); // цвет пера -  

line(50,100,150,150);

line(150,150,350,150);

line(350,150,400,200);

line(400,200,350,250);

line(350,250,150,250);

line(150,250,50,300);

line(50,300,50,100);

setpencolor(clred);

line(50,200,150,200);

setpencolor(clblack);

setbrushcolor(clskyblue );

circle(200,200,20);

circle(250,200,20);

circle(300,200,20);

  движение "ракеты"                                                                                   2)uses graphabc;

procedure raketa(x: integer);

begin

line(x,100,x+100,150);

line(x+100,150,x+300,150);

line(x+300,150,x+350,200);

line(x+350,200,x+300,250);

line(x+300,250,x+100,250);

line(x+100,250,x,300);

line(x,300,x,100);

setpencolor(clred);

line(x,200,x+100,200);

setpencolor(clblack);

setbrushcolor(clskyblue );

circle(x+150,200,20);

circle(x+200,200,20);

circle(x+250,200,20);

end;

var x: integer;

begin

x: =5;

lockdrawing;

repeat

clearwindow;

x: =x+5;

raketa(x);

sleep(50);

redraw

until x> windowwidth

end.

end.

объяснение:

!

я не обещаю что ответ будет правильным