Var a, b, c: integer;
begin
write(Введите углы a, b, c >> );
readln(a, b, c);
if a+b+c = 180 then
if (a>0) and (b>0) and (c>0) then
begin
if (a=b) and (b=c) then writeln(Равносторонний );
if ((a=b) and (ac)) or ((b=c) and (ba)) or ((a=c) and (cb)) then writeln(Равнобедренный );
if (ab) and (bc) and (ac) then writeln(Разносторонний );
if (a=90) or (b=90) or (c=90) then writeln(Прямоугольный );
if (a>90) or (b>90) or (c>90) then writeln(Тупоугольный );
if (aend
else
writeln(Углы должны быть больше 0)
else
writeln(Сумма углов не равна 180 градусам);
end.
Источник: reshaika.com
Даны три угла треугольника необходимо определить какой вид имеет треугольник прямоугольный, тупоугольный, остроугольный. Сделайте для паскаля, информатика
Найди верный ответ на вопрос ✅ «Даны три угла треугольника необходимо определить какой вид имеет треугольник прямоугольный, тупоугольный, остроугольный. Сделайте для . » по предмету Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
L. Pascal Triangle
Новые вопросы по информатике
Сколько всего различных символов может быть в восьмибитной текстовой кодировке? 1) 8 2) 512 3) 256 4) 65536
Паскаль. Написать программу подсчета количества отрицательных чисел среди любых 10 вводимых. 1 программа с использованием while, 2 программа — repeat
Сколько кб информации содержит сообщение объемом 2^20 бит?
Информатика пользователь создад сообщение из 256 символов в кодировке Unicode в которой каждый символ кодируется 16 битами после редактирования информационный объем сообщения составил 3072 бит Определите сколько символов удалили сообщение если его
Запишите числа в беззнаковом коде (формат 1 байт): а) 31; б) 163; в) 65; г) 128.
Главная » Информатика » Даны три угла треугольника необходимо определить какой вид имеет треугольник прямоугольный, тупоугольный, остроугольный. Сделайте для паскаля, информатика
Источник: urokam.net
Написать программу классифицирующую треугольники если даны углы паскаль
July 2022 1 16 Report
Написать программу в Pascal.
Даны два угла треугольника (в градусах). Определить, существует ли такой треугольник. Если да, то будет ли он прямоугольным.
Answers
begin
readln(a, b);
if a + b >= 180 then
writeln(‘Такой треугольник не может существовать’)
else if (a = 90) or (b = 90) or (a + b = 90) then
writeln(‘Это прямоугольный треугольник’)
else
writeln(‘Это треугольник’)
Pascal: Как написать программу калькулятора
end.
Источник: scholar.tips