Помогите решить, пожалуйста! Даны стороны трёх треугольников. Найдите сумму их периметров. Определите процедуру для расчёта периметра треугольника. Написать программу для Pascal. Задача с использованием подпрограмм-процедур.
Answers & Comments
kitchenrecords
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.
Answers & Comments
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.