Ответ:
PascalABC
Объяснение:
var
a,p,c,d:real;
begin
writeln('Введите значение первого угла');
readln(a);
writeln('Введите значение второго угла');
readln(p);
c:=p+a;
if c >=180 then
writeln('треугольника с такими углами не существует');
end
else if c=90 then
writeln('треугольник прямоугольный');
else
d:=180-c;
writeln('треугольник не прямоугольный и третий угол равен '+d+' градус(а)');
end.
Могу написать на Python Если устраивает вот:
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
PascalABC
Объяснение:
var
a,p,c,d:real;
begin
writeln('Введите значение первого угла');
readln(a);
writeln('Введите значение второго угла');
readln(p);
c:=p+a;
if c >=180 then
begin
writeln('треугольника с такими углами не существует');
end
else if c=90 then
begin
writeln('треугольник прямоугольный');
end
else
begin
d:=180-c;
writeln('треугольник не прямоугольный и третий угол равен '+d+' градус(а)');
end
end.
Ответ:
Могу написать на Python Если устраивает вот:
Объяснение: