Известны длины сторон треугольника a, b, c. Напишите
программу, вычисляющую периметр этого треугольника.
Пример входных данных Пример выходных да
Jane123412:
язык?
Ответы
Ответ дал:
0
Ответ:
pascal
Объяснение:
program triangle;
var
a, b, c: real;
p: real;
begin
Write('Введите стороны треугольника >> ');
ReadLn(a, b, c);
if (a + b > c) and (a + c > b) and (b + c > a) and (a > 0) and (b > 0) and (c > 0) then
begin
p := a + b + c;
WriteLn('Периметр треугольника равен ',p);
end
else
WriteLn('Треугольник со сторонами ',a,', ',b,', ',c,' не существует!')
end.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
7 лет назад