Помогите решить, пожалуйста!Даны стороны трёх треугольников. Найдите сумму их периметров....

Question

Помогите решить, пожалуйста!
Даны стороны трёх треугольников. Найдите сумму их периметров. Определите процедуру для расчёта периметра треугольника.
Написать программу для Pascal. Задача с использованием подпрограмм-процедур.

Answer 1

Procedure Calc(const a,b,c: real; var p: real);
begin
  p := a + b + c;
end;


var a, b, c, p: real;
begin
  readln(a);
  readln(b);
  readln(c);
  Calc(a, b, c, p);
  writeln(p);
end.

Comments

Спасибо большое!