Даны вещественные положительные числа a,b,c. Выяснить, существует ли треугольник со сторонами a,b,c.(язык Паскаль)
Даны вещественные положительные числа a,b,c. Выяснить, существует ли треугольник со сторонами a,b,c.
(язык Паскаль)
Гость
Ответ(ы) на вопрос:
Гостьprogram zadacha;
var
a,b,c:real;
begin
read(a,b,c);
if ((a + b) > c) and ((a + c) > b) and ((c + b) > a) then
write('yes');
end.
Гостьuses crt;
var a,b,c:integer;
begin
writeln('Введи стороны треугольника:');
readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then
writeln('Существует')
else writeln('Не существует');
end.
Не нашли ответ?
Похожие вопросы