Предмет: Информатика,
автор: 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.
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
Предмет: Литература,
автор: wot0408