Saallepi
4 год назад
PascalABCНужно написать программу с "IF"Вот сама Задание: Даны два угла теугольника (в градусах) (которые вводит пользователь). Определить, существует ли такой треугольник. Если да, то будет ли он прямоугольным?
ОТВЕТЫ
Harrell Jessie
Oct 24, 2020
var
a, b: integer;
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('Это треугольник')
end.
если надо записать в стиле PascalABC.Net, скажи допишу
a, b: integer;
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('Это треугольник')
end.
если надо записать в стиле PascalABC.Net, скажи допишу
432
Смежные вопросы: