Определить,является ли треугольник со сторонами a,b,c равнобедренным.Можно с доказательством!!))
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
