Из курса математики мы знаем что периметр треугольника равен сумме его трех сторон, в равностороннем треугольнике они равны , потому
, где а - сторона равностороннего треугольника.
а площадь расчитывается по формуле
Смотрим программы.
1 Программа подходит, формулы в функциях вроде правильно написаны.
2 Программа не подходит, по виду вроде для квадрата формулы
3 Программа не подходит. Формула площади вроде для треугольника( половина основания на высоту), но не для равностороннего и в функции для периметра в аргументах 3 штуки - очевидно это стороны треугольника и предполагается что они разные.
VAR
A, B, C: ARRAY [1..10] OF INTEGER; //массивы
i: BYTE; //счетчик цикла
BEGIN
FOR i := 1 TO 10 DO
READ (A[i]); //заполняем первый массив
FOR i := 1 TO 10 DO
READ (B[i]); // заполняем второй массив
FOR i := 1 TO 10 DO
C[i] := A[i]+B[i]; //суммируем элементы
END.
В программе не реализован вывод третьего массива на экран, т.к. это требование отсутствует согласно условию задания.