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