М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
joker902
joker902
02.04.2023 11:19 •  Информатика

Створити геометричну модель задачі: Для будівництва сучасного ПАРКУ РОЗВАГ було виділено прямокутну земельну ділянку з сторонами 6км і 7,4 км. Для облаштування ЗООПАРКУ дизайнери виділили половину всієї ділянки. Для побудови МІСТЕЧКА АТРАКЦІОНІВ виділили квадратну частину того, що залишилося від земельної ділянки після створення ЗООПАРКУ. Вимірюючи утворену теріторію, проектувальники визначили, що периметр цього квадрата дор. 4,8км. На облаштування БОТАНІЧНОГО САДУ було отримано теріторію, площа якої становить 15 квадратних кілометрів і 4000 квадрвтних метрів. Визначити площу кожної зони відпочинку. Чи залишилося вільне місце для створення частини містечка, де можна розташувати ДИТЯЧЕ КАФЕ?

👇
Ответ:

Для будівництва сучасного ПАРКУ РОЗВАГ було виділено прямокутну земельну ділянку з сторонами 6км і 7,4 км. Для облаштування ЗООПАРКУ дизайнери виділили половину всієї ділянки. Для побудови МІСТЕЧКА АТРАКЦІОНІВ виділили квадратну частину того, що залишилося від земельної ділянки після створення ЗООПАРКУ. Вимірюючи утворену теріторію, проектувальники визначили, що периметр цього квадрата дор. 4,8км. На облаштування БОТАНІЧНОГО САДУ було отримано теріторію, площа якої становить 15 квадратних кілометрів і 4000 квадрвтних метрів. Визначити площу кожної зони відпочинку. Чи залишилося вільне місце для створення частини містечка, де можна розташувати ДИТЯЧЕ КАФЕ

4,8(27 оценок)
Открыть все ответы
Ответ:
pineapplenastya1
pineapplenastya1
02.04.2023
Var a: array of integer; var i: byte; var b: boolean; begin b: =true; setlength(a,8); var n: =0; writeln('введите число: '); readln(i); var d: =i; while i< > 0 do begin a[n]: =i mod 2; i: =i div 2; inc(n); end; setlength(a,n); for   i: =0 to n-1 do begin if n=0 then begin write(0); break; end; swap(a[i],a[n-1]); write(a[i]); end; for i: =1 to n-1 do begin if n=0 then break; if a[i-1]< > a[i] then begin b: =false; break; end; end; if (b=false) then write(' = ',d,' это не палиндром') else  write(' = ',d,' это палиндром'); end.
4,6(96 оценок)
Ответ:
Klmn2870
Klmn2870
02.04.2023
Е:видеозапись.avi          |график.xIs          |ИЗОБРАЖЕНИЯаквариум.bmp                                                            |ФОТОБия.jpeg                                                                                         |Катунь.jpe          |          |          |          |ТЕКСТЫбуква.txt                                        |онегин.doc          |          |          |мелодия.mp3          |презинтация.pptПЛЖАЛУЙСТА ДРУЗЬЯ пкт даю ветьЕ:видеозапись.aviЕ:график.xIsЕ:ИЗОБРАЖЕНИЯаквариум.bmpЕ:ИЗОБРАЖЕНИЯФОТОБия.jpegЕ:ИЗОБРАЖЕНИЯФОТОКатунь.jpegЕ:ТЕКСТЫбуква.txtЕ:ТЕКСТЫонегин.docЕ:мелодия.mp3Е:презинтация.ppt
4,4(72 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ