Введите три стороны треугольника. Определите вид (равнобедренный, разносторонний, равносторонний)

Question

Информатика

Митря

5 октября, 08:08

Введите три стороны треугольника. Определите вид (равнобедренный, разносторонний, равносторонний)

+3

Ответы (1)

Знаете ответ на вопрос?

Кора · Answer 1

Var a, b, c : integer;

begin

readln (a, b, c) ;

if (not (a=b)) and (not (b=c)) and (not (a=c)) then writeln ('разносторонний')

else if ((a=b) and (not (b=c)) and (not (a=c))) or ((b=c) and (not (b=a)) and (not (c=a))) or ((a=c) and (not (a=b)) and (not (c=b))) then writeln ('равнобедренный')

else writeln ('равносторонний') ;

readln;

end.