Question

Написать программу вычисления периметра треугольника, проверить существование треугольника- Паскаль

Answer 1

Ответ:

Program z1;

Var a,b,c,p:integer;

begin

Writeln('Введіть сторони трикутника:');

Readln (a,b,c);

p:=a+b+c;

Writeln ('Периметр трикутника:');

if a+b>c AND c+a>b AND b+c>a then

Writeln ('Трикутник буде існувати.')

else

Writeln ('Трикутник не буде існувати.');

end