Ответы на вопрос:
Var a,b,c: integer; begin write('введите первую сторону треугольника '); readln(a); write('введите вторую сторону треугольника '); readln(b); write('введите третью сторону треугольника '); readln(c); if (a< 0) or (a< 0) or (b< 0) then write('такого треугольника не существует ') else if (a< > b) and (b< > c) then write('треугольник разносторонний') else if (a=b) and (b=c) then write('треугольник равносторонний') else if (a=b) or (a=c) or (b=c) then write('треугольник равнобедренный'); writeln; end.
Популярно: Информатика
-
drunkbear21.03.2021 08:08
-
Элиза551128.12.2020 11:47
-
marysyakgl23.06.2022 06:36
-
KEYK0110.06.2021 21:31
-
masterpop1543202.09.2022 21:18
-
olga17010316.08.2022 11:33
-
Арпинэ124.05.2020 00:54
-
tsey12kirill13.09.2021 05:22
-
TastyDonut19.04.2021 18:36
-
germannesta13.12.2022 03:26