<span>транспортир - измерение углов (ГРАДУСЫ)</span>
1.
var i:integer;
begin
for i:=1 to 40 do
if not odd(i) then write(i:3);
end.
2.
var i,n,p:integer;
begin
write('Введите n: '); readln(n);
p:=1;
for i:=1 to n do
if odd(i) then p:=p*i;
write(p);
end.
Примерно 11272192 Мб . И кто такие тупые задачи делает?
Пользователь оказался в <span>C:\Документы\Физика
Чтобы вернуться в первоначальный каталог, он должен сначала подняться на один уровень вверх в каталог
</span><span>C:\Документы\
</span>А затем на два уровня вниз, и окажется в каталоге "Задачи".
То есть путь будет иметь вид
C:\Документы\*****\Задачи
Из вариантов ответа подходит ответ 2.