begin
for i:integer:=1 to 7 do
writeln(‘Семь раз отмерь, один раз отрежь’);
end.
Пользователь оказался в <span>C:\Документы\Физика
Чтобы вернуться в первоначальный каталог, он должен сначала подняться на один уровень вверх в каталог
</span><span>C:\Документы\
</span>А затем на два уровня вниз, и окажется в каталоге "Задачи".
То есть путь будет иметь вид
C:\Документы\*****\Задачи
Из вариантов ответа подходит ответ 2.
Uses Crt;
var E, F, X, Y, Z: real;
bol: boolean;
begin
ClrScr;
Write(' E = '); ReadLn(E);
Write(' F = '); ReadLn(F);
Write(' X = '); ReadLn(X);
Write(' Y = '); ReadLn(Y);
Write(' Z = '); ReadLn(Z);
bol:=(X>=E) and (X<=F) and (Y>=E) and (Y<=F) and (Z>=E) and (Z<=F);
if bol=true then Writeln (' Принадлежат !!!')
else WriteLn (' Нет...');
ReadLn;
end.