pascal
Объяснение:
program triangle;
var
x, y, z: integer;
begin
Write('Введите стороны треугольника: ');
ReadLn(x, y, z);
if (x = y) or (x = z) or (y = z) then
WriteLn('Данный треугольник равнобедренный!')
else
WriteLn('Данный треугольник не равнобедренный!');
end.
pascal
Объяснение:
program triangle;
var
x, y, z: integer;
begin
Write('Введите стороны треугольника: ');
ReadLn(x, y, z);
if (x = y) or (x = z) or (y = z) then
WriteLn('Данный треугольник равнобедренный!')
else
WriteLn('Данный треугольник не равнобедренный!');
end.