Предмет: Информатика, автор: Omsi

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

Ответы

Автор ответа: Аноним
0
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.
Автор ответа: Аноним
0
Проверять существование треугольника вопрос не предполагает.
Похожие вопросы
Предмет: Алгебра, автор: matvienkoalbina3
Предмет: Алгебра, автор: tarasenkoanna70
Предмет: Английский язык, автор: losikchanneltweenk