Var
s:string;
i,n,k:integer;
begin
Write('Введите выражение: '); Readln(s);
i:=Length(s);
while i>0 do begin
if s[i]=')' then begin
k:=0; Dec(i);
while (s[i]<>'(') and (i>0) do
begin Dec(i); Inc(k) end;
Delete(s,i+1,k)
end;
Dec(i)
end;
Writeln(s)
end.
<em><u>Тестовое решение:</u></em>
Введите выражение: 3*(a+b)/(a-b);
3*()/();
Сначала считаем кол-во символов - 22.Потом умножаем на 8 получается 176 бит.
Ответ:4)176 бит
<span> 0,000156 х 10² = 0.156 х 10⁻¹
</span>-0,01678 х 10³ = <span>-0,1678 х 10²</span>