Var x1,y1,z1,x2,y2,z2,x3,y3,z3,abx,aby,abz,acx,acy,acz,s,mx,my,mz,c:real;
begin;
readln(x1);
readln(y1);
readln(z1);
readln(x2);
readln(y2);
readln(z2);
readln(x3);
readln(y3);
readln(z3);
abx:=x2-x1;
acx:=x3-x1;
aby:=y2-y1;
acy:=y3-y1;
abz:=z2-z1;
acz:=z3-z1;
mx:=aby*acz-abz*acy;
my:=abz*acx-abx*acz;
mz:=abx*acy-aby*acx;
c:=sqrt(sqr(mx)+sqr(my)+sqr(mz));
s:=0.5*c;
writeln(s);
end.<span>
</span>
Программа на языке Pascal
var
k,u,u1,u2:real;
begin
k:=1;
u1:=25;
u2:=35;
while (u1<100) or (u2<100) do
begin
u1:=u1+u1*0.07;
u2:=u2+u2*0.05;
k:=k+1;
end;
writeln('Количество туров:',k);
if u1>=100 then writeln(1) else writeln(2)
end.
ОТвет 23 тура первый участник
1)
<span>a = int(input("Введіть 1 число: "))
b = int(input("Введіть 2 число: "))
c = int(input("Введіть 3 число: "))
d = int(input("Введіть 4 число: "))
e = int(input("Введіть 5 число: "))
f = int(input("Введіть 6 число: "))
d = int(input("Введіть 7 число: "))
q = int(input("Введіть 8 число: "))
w = int(input("Введіть 9 число: "))
z = int(input("Введіть 10 число: "))
suma = [a,b,c,d,e,f,d,q,w,z]
print('Сума введених чисел = ',sum(suma))
2)
</span><span>s = <span>0
</span>while True<span>:
</span> a = int(input("Введіть число: "))
s += a
print("Сума введених чисел: ",s)
if a == 0<span>:
</span><span>break</span></span>
Если фигура круг то это начало-конец
Если фигура паралелограмм то это ввод -вывод
Если это четырёхуголник то это действие(тоесть вычисления)