//PascalABC.NET 3.1 сборка 1239
function BinToDec(bin: string): integer;
begin
var n := 0;
var p := 1;
for var i := length(bin) downto 1 do
begin
n += p * StrToInt(bin[i]);
p *= 2;
end;
Result := n;
end;
begin
var s := ReadlnString('s =');
writeln(BinToDec(s));
end.
Первый цикл: 1*2+10 = 12
Второй цикл: 12*2+10 = 34
Ответ: 34
Тактильная информация - информация прикосновения, т.е мы узнаем, что шарф мягкий, если изучим его структурные свойства прикосновениями. Ответ: Тактильная.
Обозначи кол-во цветков, распустившихся ПОЗАВЧЕРА за X, ВЧЕРА - за (X - 11) (по условию). ВЧЕРА распустилось на 11 цветков меньше, чем ПОЗАВЧЕРА и на 32 меньше, чем СЕГОДНЯ и ПОЗАВЧЕРА вместе.Подставим x=12 (>11) - цветков ВЧЕРА, значит 12-11=1 - цветков завтра. Цветков СЕГОДНЯ находим так: 32 (дано) - 11 (дано) = 21.
Ответ:
Позавчера - 12 цветков.
Вчера- 1 (12 - 11 = 12+ 21 - 32) цветок.
Сегодня - 21 цветок.