Герберт
4 год назад
Напишите пожалуйста программу паскаль (подробно)По известным углам Определите вид треугольника (остроугольный, прямоугольный, тупоугольный)Пожалуйста 15 поинтов))) Пожалуйста посчитайте
ОТВЕТЫ
Nikolinka
Oct 24, 2020
//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var (a,b,c):=ReadReal3('введите 3 угла через пробел в градусах: ');
var t:=max(max(a,b),c);
write('треугольник');
if a+b+c<>180 then write(' не существует') else if t>90 then write(' тупоугольный') else if t=90 then write(' прямоугольный') else write(' остроугольный');
end.
//Версия 3.3, сборка 1627
begin
var (a,b,c):=ReadReal3('введите 3 угла через пробел в градусах: ');
var t:=max(max(a,b),c);
write('треугольник');
if a+b+c<>180 then write(' не существует') else if t>90 then write(' тупоугольный') else if t=90 then write(' прямоугольный') else write(' остроугольный');
end.
838
Смежные вопросы:
