Question

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

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.