Var
A,S:real;
i:integer;
Begin
A:=5;
S:=A;
For i:= 1 to 6 do
Begin
A:=A*1.1;
S:=S+A;
End;
WriteLn(A:0:3,' ',S:0:3)
End.
0,5 Кбайт = 4096 бит
4096:8=512
(8 бит - вес одного символа)
Объяснение:
это можно сделать с помощью теоремы Пифагора
Два только могу пока, если остальное высчитаю напишу.
<span>1111001-1101=1101100
</span><span>10101110:101=100010</span>