Заданы длины сторон треугольника ,определить, является ли этот треугольник равнобедренным. Pascal
var
a, b, c : real;
begin
read (a, b, c);
if (a = b) or (b = c) or (a = c) then writeln (Yes) else writeln (No);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Заданы длины сторон треугольника ,определить, является ли этот треугольник равнобедренным. Pascal
var
a, b, c : real;
begin
read (a, b, c);
if (a = b) or (b = c) or (a = c) then writeln (Yes) else writeln (No);
end.