Program n1;
var kord: array[1..6] of real;
st: array [1..3] of real;
i: integer;
begin
i:=1;
while i<=6 do
begin
write('введите координаты точки через пробел: ');
readln(kord[i],kord[i+1]);
i:=i+2;
end;
st[1]:=sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2]));
st[2]:=sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2]));
st[3]:=sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4]));
if (st[1]<(st[2]+st[3])) and (st[2]<(st[1]+st[3])) and (st[3]<(st[1]+st[2])) then write('P=',st[1]+st[2]+st[3]) else write('треугольник не существует');
end.
Прямоугольна система состоит из 3 осей(x,y,z).
1) 20
2) умножаем на 3, получаем 60
3) умножаем на 2, получаем 120
4) прибавляем 2, получаем 122
5) 122
Var
s1,s2 : String;
n,i : Integer;
Begin
n:=0;
Readln(s1);
Readln(s2);
For i:=1 to Length(s1) do If Pos(s1[i],s2)=0 then Inc(n);
Writeln(n);
end.
А = 10
В = 20
1. Подставляем числа в следующее уравнение
А = -В * В / А
А = -20 * 20 \ 10 = -40
2. Далее идет разветвление алгоритма, выполняем уравнение:
А > B
-40 > 20
3. Поскольку у нас А меньше В, то выполняем команду:
С = 2 * А - В
С = 2 * -40 - 20 = -100
Ответ : С:=(-100)
P.S. Странно получается, у тебя там на схеме, нету стрелочки от последнего пункта до первого?
