Стакан перемещается на третье место, соответственно чашка на четвертое. Теперь известно, что кофе оказалось посередине, т.е. оно в стакане. Справа и слева чай и молоко. Т.е. в кружке либо чай, либо молоко и в чашке тоже. Но известно, что в бутылке минеральная вода, а по соседству с молоком - квас. В чашке - молоко, в кувшине квас, в кружке чай.
<span><span /><span><span>
</span><span /></span></span><span><span /><span><span>
кофе
чай
молоко
квас
минеральная вода
</span><span>бутылка
<span> -</span><span> -</span><span> -</span><span> -</span><span> +</span>
</span><span>кружка
<span> +</span>
</span><span>чашка
<span>+</span>
</span><span>
стакан
<span> +</span><span> -</span><span> -</span><span> -</span><span> -</span>
</span><span>кувшин
<span> +</span>
</span></span></span>
У дальних планет больше спутников по причине их большей массы. Чем больше масса планеты - тем большую массу она притягивает и захватывает.
Var a: array[0..10] of integer;
i, j, k: integer;
begin
for i := 0 to 10 do
begin
a[i] := random(90) - 45;
writeln('[', i, '] => ', a[i]);
end;
for i := 0 to 10 do
if (a[i] < 0) then inc(j)
else if (a[i] > 0) then inc(k);
writeln(j, ' ', k);
<span>end.
работает у меня:)</span>
Program Z;
Uses Crt;
var x,y,z:real;
begin
clrscr;
write('Введите х: ');
readln(x);
write('Введите y: ');
readln(y);
if (x<0) and (x>y) then z:=x;
if (x<0) and (x<y) then z:=y;
if (x>=0) then z:=(x+y)/2;
writeln('z=',z);
readkey;
end.