Напишите 2 программы в pascal abc 1.даны 4 числа, найти наименьшее из них 2.даны 3 стороны треугольника, является ли он прямоугольным?
291
332
Ответы на вопрос:
1program z1; var a,b,c,d, min1, min2, min: real; begin writeln ('введите 4 числа: '); readln (a,b,c,d); if a< b then min1: =a else min1: =b; if c< d then min2: =c else min2: =d; if min1< min2 then min: =min1 else min: =min2; writeln ('наименьшее число: ',min); end. 2 program z1; var a,b,c,d,g,k: real; begin writeln ('введите стороны треугольника: '); readln(a,b,c); if a< b then begin k: =a; d: =b; end else begin k: =b; d: =a; if d< c then g: =c else g: =d; if g*g=d*d+k*k then writeln ('треугольник прямоугольный') else writeln('треугольник не прямоугольный'); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
MoNsTeR22107.02.2021 16:53
-
OOONIMOOO21.11.2020 02:13
-
ИНТЕРНЕТ111115.10.2020 16:45
-
aaysu22827.03.2021 15:40
-
cook1622.03.2021 23:06
-
luiza15166111.05.2022 17:36
-
mdasa737508.11.2020 00:16
-
FGHJER10.10.2020 16:15
-
ИсхакТурдубеков11.04.2020 23:06
-
kira9let20.04.2021 18:21
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.