Кодинг
★ Рубрика: Кодинг
★ Тема: Pascal

Можно ли из трех отрезков составить треугольник - Паскаль

Даны три отрезка - заданы их длины. Надо проверить получится ли из этих отрезков треугольник. Идея - треугольник существует, если сумма любых двух сторон больше третьей. Если сумма равна третьей или меньше, то треугольник не получится. Здесь приведены два вариант решения задачи.
var a, b, c: integer;
 begin
 write (' Длины сторон: ');
 readln (a,b,c);
 if (a < b+c) and (b < a+c) and (c < a+b) then
 writeln ('Треугольник существует.')
 else
 writeln ('Треугольник не существует.');
 readln
end.
Второй вариант.
var a, b, c: integer;
 
begin
 write ('Длины сторон: ');
 readln (a,b,c);
 if a < b+c then
 if b < a+c then
 if c < a+b then
 writeln ('Треугольник существует.')
 else
 writeln ('Треугольник не существует.')
 else
 writeln ('Треугольник не существует.')
 else
 writeln ('Треугольник не существует.');
 readln
end.
 Похожие публикации: Pascal

Войти и комментировать [ Вход | Регистрация ]