===== PascalABC.NET =====
begin
var (a, b, c) := ReadReal3('Задайте a, b, c:');
if (a = b) or (a = c) or (b = c) then
Print('Треугольник равнобедренный')
else
Print('Треугольник разносторонний')
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
===== PascalABC.NET =====
begin
var (a, b, c) := ReadReal3('Задайте a, b, c:');
if (a = b) or (a = c) or (b = c) then
Print('Треугольник равнобедренный')
else
Print('Треугольник разносторонний')
end.