<span>В каждом разделе можно установить свои параметры страницы и коллонтитулы</span>
Program z9; Var s1,s2,v1,v2,s:integer; t1,t2,v,t:real;Begin write('S1 = '); readln(s1); write('S2 = '); readln(s2); write('V1 = '); readln(v1); write('V2 = '); readln(v2); s:=s1+s2; t1:=s1/v1; t2:=s2/v2; t:=t1+t2; v:=s/t; writeln('Средняя скорость равна = ', v);End.
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 M:array [1..20] of integer;
n, Ch, Ost : integer;
Begin
ReadLn(n);
while n >= 2 do
begin
Ch := n div 2;
Ost := n mod 2;
M[] := Ost;
end;
WriteLn( M[]);
end.