Var a,b,c : real; begin write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Треугольник построить можно') else writeln('Треугольник построить нельзя'); end.
Пример 1: a = 3 b = 4 c = 5 Треугольник построить можно
Пример 2: a = 3 b = 5 c = 9 Треугольник построить нельзя
Answers & Comments
Verified answer
Var a,b,c : real;begin
write('a = ');
readln(a);
write('b = ');
readln(b);
write('c = ');
readln(c);
if (a+b>c) and (a+c>b) and (b+c>a)
then writeln('Треугольник построить можно')
else writeln('Треугольник построить нельзя');
end.
Пример 1:
a = 3
b = 4
c = 5
Треугольник построить можно
Пример 2:
a = 3
b = 5
c = 9
Треугольник построить нельзя