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

Question

Информатика

Маланьюшка

4 июня, 00:21

Определить, является ли треугольник со сторонами 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.