0 & 1 v 0 & 1 = 0 v 0 = 0
Ну вообще там не написано какие?Потому что надо сложить эти оценки(Например 10+9+8=27,и 27:3=9)Ну вот.
Var
<span>
R1, R2, R3, S1, S2, S3: Integer;</span><span>
begin</span><span>
writeln('Введите размеры
рации и чемодана');</span><span>
readln(R1, R2, R3, S1, S2, S3);</span><span>
if ((R1 < S1) and (R2 < S2)
and (R3 < S3)) or</span><span>
((R3 < S3) and (R2 < S1) and
(R1 < S2)) or</span><span>
((R1 < S1) and (R2 < S3) and
(R3 < S3)) or</span><span>
((R2 < S2) and (R1 < S3) and
(R3 < S1)) or</span><span>
((R2 < S1) and (R3 < S2) and
(R1 < S3)) or</span><span>
((R1 < S2) and (R3 < S1) and
(R2 < S3)) then</span>
<span>WriteLn('ПОМЕЩАЕТСЯ')</span><span>
else</span>
<span>WriteLn('НЕ ПОМЕЩАЕТСЯ');</span>
<span>end.</span>
Program asd;
var x,y,z,v,f:real;
BEGIN
x:=1.825;
y:=18.225;
z:=-3.298;
Write('X: ',x);
Write('Y: ',x);
Writeln('Z: ',x);
v:=abs(exp(ln(x)*(y/x)) - exp(ln(y/x)*(1/3)));
f:=(y-x)*((y-z/(y-x))/1+sqr(y-x));
Writeln('V: ',v:2:2);
Writeln('F: ',f:2:2);
END.
<span>
</span>