Ответы на вопрос:
Pascalabc program aip; var flta,fltb,fltb2: real; code: integer; function ip(a: real): real; var a1: string; begin write('введите значение а= '); // repeat readln(a1); val(a1,a,code); if (code< > 0) then writeln('no'); until (a> 0); // ip: =a; end; begin flta: =ip(flta); if abs(1+sin(2*flta)) < 0.000001 then begin writeln('delenie na nol v pervoy formule'); end else begin fltb: = ((1-2*sin(flta)*sin(flta))/(1+sin(2*; writeln('первая формула ',fltb: 5: 5); end; if abs(1+tan(flta)) < 0.000001 then begin writeln('delenie na nol vo vtoroy formulte'); end else begin fltb2: = ((1-tan(flta))/(1+tan(; writeln('вторая формула ',fltb2: 5: 5); end; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
DLM122.08.2021 19:41
-
aresha13458987002.04.2020 10:46
-
pimkinares17.04.2021 05:40
-
irisha19078425.04.2020 01:47
-
maksim39320.03.2020 11:19
-
Мадина091131.03.2023 00:59
-
школааксай26.03.2022 16:06
-
mussay8605.01.2022 17:36
-
ivanovartem450p08ajg12.07.2021 15:41
-
emirov200202.02.2023 11:35
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.