Var
    x1, x2, x3, x4, y1, y2, y3, y4: real;

function VectorLength(x1, y1, x2, y2: real): real;
begin
    VectorLength := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
end;

function VectorSlope(x1, y1, x2, y2: real): real;
begin
    VectorSlope := (y1 - y2) / (x1 - x2);
end;

begin
    readln(x1, y1);
    readln(x2, y2);
    readln(x3, y3);
    readln(x4, y4);

    if (VectorLength(x1, y1, x2, y2) = VectorLength(x4, y4, x3, y3))
    and (VectorSlope(x1, y1, x2, y2) = VectorSlope(x4, y4, x3, y3)) then
        writeln('Yes')
    else writeln('No');
end.

0 0

4 года назад

Для какого из приведённых чисел истинно высказывание: НЕ (число <50) И (число чётное)? 1) 24 2) 45 3) 74 4) 99

nola [6]

Ответом является вариант под номером 3.

0 0

4 года назад

Прочитать ещё 2 ответа

Дана сторона в, правильного семиугольника. Составить программу для нахождения радиуса вписанной окружности r, и площади семиугол

Настя296

Var r,s,b:real;
begin readln (b);
r:=b/2*(1+sqr(2));
s:=8*sqr(r)*sqr(3)-(sqr(2)*2);
writeln (r);
writeln(s);
<span>end.</span>

0 0