Var a,b:real;
begin
read(a,b);
if a>b then
begin
a:=a-b;
b:=2*b+a;
end
else
begin
b:=b-a;
a:=2*a+b;
end;
write(a,' ',b)
<span>end.</span>
<span><span>Var
D : array[1..365] of Byte; {начальные данные}
M : array[1..8] of Word;
...
For i:=1 to 8 do M[i]:=0;
For i:=1 to 365 do Inc(M[D[i]]);
Min:=1;
For i:=2 to 8 do
If M[i]<M[Min] then Min:=i;
Case Min of
1 : Writeln('С южной стороны от комбината');
2 : Writeln('С северной стороны от комбината');
...
8 : Writeln('С северо-западной стороны от комбината');
End;
Мб подойдет, надо на паскале проверять. Если ты просил массив в паскале</span></span>
Код находится в приложении.
512=2^9 ---> 9 бит для кодировки одного символа
F = 4096*9=1024*4*9 бит =9*2^12 бит =4,5 *2^13 бит =4,5 Кбайт
ответ 4,5 Кбайт
Ну исходя из моего понимания всего сущего, это операционная система.