Ответы на вопрос:
Var a,b,c: real; begin writeln ('введите стороны треугольника'); read (a,b,c); if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) then begin if (a=b) or (a=c) or (b=c) then writeln ('равнобедренный') else writeln ('не равнобедренный'); end else writeln ('такого треугольника не существует'); end.
Популярно: Информатика
-
MyNameIsLiza12308.12.2020 17:35
-
Melisaoz0715.12.2022 07:02
-
Кисамяумяумур27.02.2022 18:18
-
446664Flu05.01.2020 21:34
-
Школа22111116.03.2022 19:40
-
Вероніка20041904.09.2020 16:27
-
vikkisitoff29.07.2021 21:17
-
xtreil181пингвинчик17.05.2021 12:01
-
АняПоторалова22.01.2022 01:19
-
vladuha69131.08.2021 11:16