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>
var r,h:real;
Begin
read(r,h);
writeln('S=',pi*r*2*h/3);
End.
1)i:=7;
<span>while i<=8 do begin
writeln('Привет!');
i:=i+1 =8
2)i:=8</span><span>;
<span>while i<=8 do begin
writeln('Привет!');
</span></span><span>i:=i+1 =9
На следующий раз он уже не повторится
Ответ: 7
</span>
приготовление обеда - повар
уборка квартиры - уборщица
уборка мусора во дворе - дворник
стирка - прачка
перевозка пассажиров - таксист, водитель
обучение детец в школе - учитель
продажа железнодорожных билетов - продавец
поддержание температуры в помещении -
прием зачета -
доставка корреспонденции - курьер
X - количество монет у I
y - количество монет у II
1-ая партия: I X+Y/2 ; II Y-Y/2=У/2
2-ая партия: I (X+Y/2)/2 II Y/2+(X+Y/2)/2=Y*3/4+X/2
3-я партия: I (X+Y/2)/2+1/2(Y*3/4+X/2)=X*3/4+Y* 5/8
II Y*3/8+X/4
Cистема:
X*3/4+Y*5/8=28
(X/4+Y*3/8)=12 Решение этой системы: Х=24 Y=16
Ответ 24 монеты у первого; 16 монет у второго