Даны целые числа a, b, c, являющиеся сторонами некоторого треугольника. Проверить истинность высказывания: «Треугольник со сторонами a, b, c является равнобедренным».
Answers & Comments
AriannaCat
Можно было ввод сделать попроще, но так программа не особо красиво выглядит)
1 votes Thanks 1
AriannaCat
Картинки нет, извиняюсь Program pr1; Var a,b,c: integer; Begin Writeln('a'); Readln(a); Writeln('b'); Readln(b); Writeln('c'); Readln(c); If ((a=c)or(a=b)or(c=b)) then Writeln('Треугольник равнобедренный') Else Writeln('Треугольник не равнобедренный'); End.
Answers & Comments
Program pr1;
Var a,b,c: integer;
Begin
Writeln('a');
Readln(a);
Writeln('b');
Readln(b);
Writeln('c');
Readln(c);
If ((a=c)or(a=b)or(c=b)) then
Writeln('Треугольник равнобедренный')
Else
Writeln('Треугольник не равнобедренный');
End.