Вопрос от пользователя: Костюха
Написать программу, которая по трем заданным углам треугольника определяет и выдаёт на экран вид этого треугольника
На Pascal
Ответ: Арсеньюшка
Var a, b, c: integer;
begin
write (‘a = ‘);
readln (a);
write (‘b = ‘);
readln (b);
write (‘c = ‘);
readln (c);
if a + b + c 180 then
writeln (‘Треугольник не существует’) else
if (a = 180) or (b = 180) or (c = 180) then
writeln (‘Треугольник вырожденный’) else
if (a = 90) or (b = 90) or (c = 90) then
writeln (‘Треугольник прямоугольный’) else
if (a > 90) or (b > 90) or (c > 90) then
writeln (‘Треугольник тупоугольный’)
else writeln (‘Треугольник остроугольный’);
end.
