Почти одновременно появились три проекта по созданию микропроцессора: Central Air Data Computer (CADC) в Garrett AiResearch (1968), TMS 1000 в Texas Instruments (1971) и 4004 в Intel (1971).
Пуск..........................
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Введите строку:');
s:=s.Left(Pos('!',s)-1);
Writeln('Пробелов: ',s.Where(c->c=' ').Count);
Writeln('Буква "ю" в последовательность ',Pos('ю',s)=0?'не ':'',
'входит');
if s.Intersect('шина').Count=4 then
Writeln('Среди символов есть все буквы слова "шина"')
else Writeln('Среди символов нет всех букв слова "шина"');
if s.Matches('но|он').Count>0 then
Writeln('Есть соседствующие буквы "он" или "но"')
else Writeln('Нет соседствующих букв "он" или "но"');
if s.ToCharArray.Pairwise((x,y)->x=y).Count>0 then
Writeln('Есть пара соседствующих одинаковых символов')
else Writeln('Нет пары соседствующих одинаковых символов')
end.
<u>Пример:</u>
Введите строку: наша пища хороша, но не так, чтобы очень. соответственно, мы не очень толсты! как-то так.
Пробелов: 12
Буква "ю" в последовательность не входит
Среди символов есть все буквы слова "шина"
Есть соседствующие буквы "он" или "но"
Есть пара соседствующих одинаковых символов
1.10*8 (256=2^i)=80 бит
2.1/6Мбайта=1/6*1024*1024*8(бит)=<span><span>1398101 бит ;V=k*i
</span></span>k=1398101/4 (16=2^i)=<span><span>349525,3
3.х=10500Мбайт/(30*70*8)=10500*1024*1024*8/</span></span>(30*70*8)=<span><span>5242880
V=(x*y*z)*i, </span></span>x,y,z - кол-во страниц, кол-во строк, <span>кол-во символов в строке соответственно</span>