//Pascal ABC.NET Версия 2.2 Сборка 790
var s,s1,s2:string;
begin;
while s<>'.' do
begin;
readln(s);
s1:=s1+s;
end;
s2:=chr(39); //chr(39)='
if (pos('O',s1)<>0) and (pos(s2,s1)<>0) and (pos('k',s1)<>0) then writeln('Yes') else writeln('No');
<span>end.</span>
3 бита, ибо 8=2^3
еслиб было 7 букв, тоже 3 бита было бы. А вот если 3 буквы, то уже 2 бита
Якщо на другий поверх 9,то на перший поверх 9:2:4,5.тепер щоб дізнатись скільки на 7 поверх треба 4,5*7=31,5.
2^40бит=2^40/2^33ГБайт=2^7Гбайт=128Гбайт