Написать программу существования треугольника по заданным длинам сторон, используя if, else. Является треугольник равносторонним и равнобедренным

Question

Информатика

Элюна

2 сентября, 15:55

Написать программу существования треугольника по заданным длинам сторон, используя if, else. Является треугольник равносторонним и равнобедренным

+5

Ответы (1)

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

Марина · Answer 1

Var

a, b, c:integer;

begin

Writeln ('Введите стороны треугольника') ;

readln (a, b, c) ;

if (a=b) and (ac) then writeln ('Треугольник равнобедренный')

else if (a=b) and (a=c) then writeln ('Треугольник равносторонний')

else writeln ('Треугольник разносторонний') ;

end.