Определить, является ли треугольник со сторонами a, b, c равнобедренным. Можно с доказательством!))

Question

Информатика

Поликсения

30 января, 10:29

Определить, является ли треугольник со сторонами a, b, c равнобедренным. Можно с доказательством!))

+4

Ответы (1)

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

Васильич · Answer 1

Var a, b, c:real; g:boolean;

begin

readln (a, b, c) ;

g: = (a=b) or (b=c) or (a=c) ;

If g = true then

write ('равнобедренный')

else

write ('не равнобедренный') ;

readln

end.