Question

Паскаль: Вычислить и вывести значения периметров 25 треугольников при различных значениях их сторон (А>0, B>0, C>0), вводимых с клавиатуры.
Спасибо.

Answer 1

Var
   A,B,C:real;
   i:integer;
Begin
For i:= 1 to 25 do
    Begin
    Write('Введите длины сторон треугольника: ');
    ReadLn(A,B,C);
    if (A < B+C)and(B < C+A)and(C < A+B) then
       WriteLn('P = ',A+B+C)
    else WriteLn('Треугольник не существует');
    End
End.

Answer 2

Проверять существование треугольника вопрос не предполагает.