Решите задачу 3.25 срочно нужно ,заранее спасибо) ,дам 81 балл.

Question

Решите задачу 3.25 срочно нужно ,заранее спасибо) ,дам 81 балл.

---

Comments

не хочу писать не верно ,но в чем проблема то

Answer 1

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
Треугольник построить нельзя