Даны три натуральных числа. Разработайте, отладьте и протестируйте на приведённых данных программу, определяющую, существует ли треугольник с такими длинами сторон. Если такой треугольник существует, то определите его тип (равносторонний, равнобедренный, разносторонний). Для проверки правильности программы используйте тест:
| Входные данные | Выходные данные |
|---|---|
| a b c>>1 2 1 | Не существует |
| a b c>>2 2 2 | Равносторонний |
| a b c>>20 20 30 | Равнобедренный |
| a b c>>3 4 5 | Разносторонний |
По неравенству треугольника каждая сторона должна быть меньше суммы двух других. Проверяем все три неравенства до определения вида. Если треугольник существует, сначала проверяем равенство всех трёх сторон, затем равенство любой одной пары; иначе он разносторонний.
var a, b, c: integer;
begin
write('a b c>>');
readln(a, b, c);
if (a + b <= c) or (a + c <= b) or (b + c <= a) then
writeln('Не существует')
else if (a = b) and (b = c) then
writeln('Равносторонний')
else if (a = b) or (a = c) or (b = c) then
writeln('Равнобедренный')
else
writeln('Разносторонний')
end.
Для
