Ответы на вопрос:
Var a, b, c, d: real; begin readln(a, b, c); if a = 0 then begin if b = 0 then writeln('х может быть любым') else writeln('x = ', c / -b); exit; end; d : = (b * b) - 4 * a * c; if d < 0 then begin writeln('комплексные корни'); exit; end; writeln('x1 = ', -b + sqrt(d) / (2 * a)); writeln('x2 = ', -b - sqrt(d) / (2 * a)); end.
Пойдёт? var x,y,y1,y2,y3: real; function st(b,b1: real): real; beginst: =power(b,b1); end; procedure work; begin y1: =st(x,2); y2: =st(x,3); y3: =st(5,6); y: =(y1+y2+y3)/3; end; beginwrite('x'); readln(x); work; writeln('y',y); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
алина385126.03.2020 14:16
-
ЕгорВанШот13.07.2021 23:33
-
mlgcuca22.12.2022 05:38
-
адай628.02.2021 23:25
-
makovskaya200108.08.2020 06:25
-
DahenkaSi0517.01.2021 19:40
-
Mashavicks20.04.2023 22:36
-
Сапсан93617.04.2023 10:47
-
KoRiiZa13.12.2020 23:48
-
Toma0600003.05.2022 01:54
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.