Var
s, x: integer;
begin
s:=0;
repeat
readln(x);
s:=s+x;
until x = 0;
writeln(s);
end.
var
num:integer;
begin
readln(num);
if (num < 62) then write('Легкая')
else if (num <= 74) and (num >= 62) then write('Средняя')
else if (num >=75) and (num <= 87) then write('Тяжелая')
else write('Сверхтяжелая');
16 =
следовательно 4 бита на символ
4*32 =128 бит(информации несёт)
Например, по твоему алгоритму составить примерчик простенький:
(2*(3/(3*(2/2*1)))))=2 со скобками
2*3/3*2/2*1=2 без всяких скобок, т.к. в примере, который тобой написан, только умножение и деление. Результат от скобок не зависит. Но уж если убрать скобки лишние (а они здесь все лишние), то надо убрать одну скобку слева и 2 скобки справа. Но по сути здесь вообще скобок быть не должно. Странный у тебя вопрос.