const
m = 2;
n = 3;
var
A, B, C: array [0..m - 1,0..n - 1] of real;
Ct: array [0..n - 1, 0..m - 1] of real;
i, j: Integer;
begin
// заполнение матрицы С среднеарифметическими значениями А и В
for i := 0 to m - 1 do
for j := 0 to n - 1 do
C [i, j] := (A [i, j] + B [i, j]) / 2;
// транспонирование С в Ct
for i := 0 to m - 1 do
for j := 0 to n - 1 do
Ct [j, i] := C [i, j];
end;
Нужно заключить выражения между and в скобки т.к. приоритет выполнения операции <u><em>and</em></u> выше чем у <u><em>></em></u> и условие выполняется неверно.
Правильная запись шестой строчки:
if ((a+b)>c) and ((a+b)>b) and ((c+b)>a) then
Решение пишу с телефона. Поэтому проверить, компилируется ли программа или нет, я не смогу.
program zd1;
var x,y,pi:integer;
begin
writeln ('Введите значение переменной X');
readln (x);
pi:=3,14;
if (0 <= x <= 1) then y:=x^4-4
else
y:=sqr(x)-sin (pi*sqr (x));
writeln ('Ответ = ', y);
end.
<span>import math
x1 = int(input("x1 = "))
y1 = int(input("y1 = "))
x2 = int(input("x2 = "))
y2 = int(input("y2 = "))
x3 = int(input("x3 = "))
y3 = int(input("y3 = "))
A = math.sqrt( pow((x2 - x1),2) + pow((y2 - y1),2) )
B = math.sqrt( pow((x3 - x2),2) + pow((y2 - y1),2) )
C = math.sqrt( pow((x1 - x3),2) + pow((y1 - y3),2) )
p = ( A + B + C)/<span>2
</span>S = math.sqrt( p*(p - A )*(p - B)*(p - C) )
print("Площа: ",round(S,2))
print("Периметр: ",round(A+B+C),2)</span>