<span>00100001=0*10^7+0*10^6+1*10^5+0*10^4+0*10^3+0*10^2+0*10^1+1*10^0
</span>32+1=33.
Ответ: 33.
Скатерть
Остров
Сумка
Товар
Автобус
Винтерлятор
Var
n: integer;
a,b: integer;
begin
Readln(n);
a:= n mod 10;
b:=n div 10;
if a>4 then inc(b);
b:=b*10;
Writeln(b)
end.
Это очень,для меня сложно.Но - Но можно поискать в интернете Подскажи мне автора книги