Function func1(a As Double) As Double
Dim i As Integer, b As Double
i = 1 - Sgn((Abs(a) - a) / 2)
b = Sqr(a * i)
a = a * 2 + i * (b - 2 * a)
func1 = a
End Function
Var
n:longint;
s:string;
k:integer;
begin
Read(n);
Str(n,s); k:=Length(s);
Writeln(Ord(s[k-1])+Ord(s[k-4])-2*Ord('0'))
end.
1) 1 Кбайт, 1000 байтов, 1 байт, 1024 бита, 1 бит
2) 10 битов, 20 битов, 2 байта, 1010 байтов, 1Кбайт
начало
/ \
d:=a+b e:=a-2d
\ /
\ e:=c:e
\ /
d:=d-e
не знаю, но моё мнение такое. это больше похоже на программный алгоритм. блоки я уже позабыл
Ответ будет "Компьютер", как раз таки на нем и обрабатывается и храниться информация..