Регистрация Спросить otvet5GPT
Andreiuchenik
05.01.2022 13:24
Информатика
Есть ответ 👍

Надо составить понятия! понятия: дуб, растение, ясень, дерево, кустарник, малина, смородина. !

299
404
Посмотреть ответы 2

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

CagBak
CagBak
4,4(86 оценок)

                                                    растение

 

                            дерево                                       кустарник 

                                 

                            ясень                                           смородина

                            дуб                                                     малина 

тогжан09
тогжан09
4,6(1 оценок)
Uses graphabc; var f: boolean; //переменная для выхода из программы procedure keydown(key: integer); beginif key=vk_return then f: =false; //если нажата enter-меняем значение флагаwindow.caption: ='программа завершена'; end; var   x,y: integer;       r: real; beginf: =true; //программа включена на работуsetwindowsize(600,600); //квадратное окноwindow.caption: ='для окончания нажмите enter'; lockdrawing; r: =1; x: =windowwidth-round(50*r); y: =round(50*r); repeatwhile (y< windowheight-round(50*r))and f do  begin  r: =r+0.002;   window.clear;   sleep(1);   drawcircle(x,y,round(50*r));   moveto(round(x+50*r),y);   arc(x,y,round(10*r),220,320);   arc(x,y,round(30*r),220,320);   drawcircle(x-round(20*r),y-round(14*r),round(10*r));   drawcircle(x+round(20*r),y-round(14*r),round(10*r));   y: =y+1;   x: =x-1;   redraw;   onkeydown : = keydown; //если нажмем enter, сменится флаг на false   end;                   // и программа завершится   x: =windowwidth-round(50*r); y: =windowheight-round(50*r); while (y> =round(50*r)) and f do  begin  window.clear;   sleep(1);   r: =r-0.002;   drawcircle(x,y,round(50*r));   moveto(round(x+50*r),y);   arc(x,y,round(10*r),220,320);   arc(x,y,round(30*r),220,320);   drawcircle(x-round(20*r),y-round(14*r),round(10*r));   drawcircle(x+round(20*r),y-round(14*r),round(10*r));   y: =y-1;   x: =x-1;   redraw;   onkeydown : = keydown;   end; x: =windowwidth-round(50*r); y: =round(50*r); until   not f;   end.

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

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

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

Caktus Image

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

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

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

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

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

  • В чем отличия от ChatGPT?

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

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

GTP TOP NEWS