Ответы
Ответ дал:
0
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 ('Треугольник не существует.');
end.
begin
write (' Длины сторон: ');
readln (a,b,c);
if (a < b+c) and (b < a+c) and (c < a+b) then
writeln ('Треугольник существует.')
else writeln ('Треугольник не существует.');
end.
Похожие вопросы
2 года назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад