Есть ответ 👍

Как продолжить программу? турбо паскаль нужно чтобы мяч возвратился обратно в начальные координаты.! program myach; uses crt,graphabc; var x: integer; begin x: =1; for x: =190 to 465 do begin clrscr; circle(150,150,15); line(150,165,150,250); line(150,250,130,270); line(150,250,170,270); line(150,180,180,175); line(150,180,180,180); circle(500,150,15); line(500,165,500,250); line(500,250,480,270); line(500,250,520,270); line(500,180,470,175); line(500,180,470,180); circle(x,170,10); delay(5); end; end.

201
497
Посмотреть ответы 2

Ответы на вопрос:


Program myach;   uses crt,graphabc;   var x: integer;   begin  x: =1;   for x: =190 to 465 do  begin  clrscr;   circle(150,150,15);   line(150,165,150,250);   line(150,250,130,270);   line(150,250,170,270);   line(150,180,180,175);   line(150,180,180,180);   circle(500,150,15);   line(500,165,500,250);   line(500,250,480,270);   line(500,250,520,270);   line(500,180,470,175);   line(500,180,470,180);   circle(x,170,10);   delay(5);   end;   for x: =465 downto 190 do  begin  clrscr;   circle(150,150,15);   line(150,165,150,250);   line(150,250,130,270);   line(150,250,170,270);   line(150,180,180,175);   line(150,180,180,180);   circle(500,150,15);   line(500,165,500,250);   line(500,250,480,270);   line(500,250,520,270);   line(500,180,470,175);   line(500,180,470,180);   circle(x,170,10);   delay(5);   end;   end.

Наполнить (8) перелить из (8) в (5), в (8) останется 3. из (5) вылить. перелить из (8) имеющиеся там 3 в (5). наполнить (8). перелить из (8) в (5) до заполнения. в (8) останется 6. вылить из (5). перелить из (8) в (5), в (8) останется 1. вылить из (5). перелить из (8) в (5), в (5) будет 1. наполнить (8). перелить из (8) в (5) до заполнения. в (8) останется 4 литра.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS