Ответ:1)C:\Календарь\Декабрь.
1.Поднялся, оказался в C:\Календарь
2.2 раза опустился и оказался в <span>C:\Календарь\Зима\Январь\17\ (17 выделено с двух сторон, а значит это не каталог).</span>
Var
A:array[1..50] of integer;
i,S:integer;
Begin
For i:= 1 to 50 do
Begin
A[i]:=1;
Write(A[i],' ');
S:=S+A[i]
End;
WriteLn;
WriteLn('S = ',S);
End.
===== PascalABC.NET =====
function F(x: real) := x - 1 / (3 + Sin(3.6 * x));
begin
var (a, b, eps) := (0.0, 0.85, 1e-5);
var x: real;
while Abs(F(a) - F(b)) >= eps do
begin
x := (a + b) / 2;
var y := F(x);
Writeln('Интервал (', a, ',', b, '), x = ', x, ', y =', y);
if Sign(y) = Sign(F(a)) then
a := x
else
b := x
end;
x := (a + b) / 2;
Writeln('Решение: х = ', x, ', y = ', F(x))
end.