Стакан перемещается на третье место, соответственно чашка на четвертое. Теперь известно, что кофе оказалось посередине, т.е. оно в стакане. Справа и слева чай и молоко. Т.е. в кружке либо чай, либо молоко и в чашке тоже. Но известно, что в бутылке минеральная вода, а по соседству с молоком - квас. В чашке - молоко, в кувшине квас, в кружке чай. кофе чай молоко квас минеральная вода бутылка - - - - + кружка + чашка + стакан + - - - - кувшин +
Это про зайца Var r,d,s,m,a:real; Begin; Write('Введите скорость зайца '); readln(r); Write('Введите скорость собаки '); readln(d); Write('Введите расстояние до леса '); readln(s); Write('Введите расстояние между ними '); readln(m); a:=s/r; if (d*a)>=(m+s) then writeln('Собака догонит зайца') else writeln('Собака не догонит зайца'); end.
Про круг Var p,d,l:real; Begin; Write('Введите периметр квадрата '); readln(p); p:=p/4; Write('Введите лину окружности '); readln(l); d:=(l/pi); if r<=p then writeln('Круг войдёт в квадрат') else writeln('Круг не войдёт в квадрат'); end.
кофе чай молоко квас минеральная вода
бутылка - - - - +
кружка +
чашка +
стакан + - - - -
кувшин +
Var r,d,s,m,a:real;
Begin;
Write('Введите скорость зайца ');
readln(r);
Write('Введите скорость собаки ');
readln(d);
Write('Введите расстояние до леса ');
readln(s);
Write('Введите расстояние между ними ');
readln(m);
a:=s/r;
if (d*a)>=(m+s)
then writeln('Собака догонит зайца')
else writeln('Собака не догонит зайца');
end.
Про круг
Var p,d,l:real;
Begin;
Write('Введите периметр квадрата ');
readln(p);
p:=p/4;
Write('Введите лину окружности ');
readln(l);
d:=(l/pi);
if r<=p
then writeln('Круг войдёт в квадрат')
else writeln('Круг не войдёт в квадрат');
end.