Компьютер может развивать ум,реакцию человека,а неполезные способности компьютера-ухудшение зрения,кривая осанка
[2, "11111"]
[3, "1011"]
[4, "133"]
[5, "111"]
[6, "51"]
[7, "43"]
[8, "37"]
[9, "34"]
[10, "31"]
[11, "29"]
[12, "27"]
[13, "25"]
[14, "23"]
[15, "21"]
[16, "1f"]
[17, "1e"]
[18, "1d"]
[19, "1c"]
[20, "1b"]
[21, "1a"]
[22, "19"]
[23, "18"]
[24, "17"]
[25, "16"]
[26, "15"]
[27, "14"]
[28, "13"]
[29, "12"]
[30, "11"]
[31, "10"]
[32, "v"]
[33, "v"]
[34, "v"]
[35, "v"]
[36, "v"]
Ответ 8,12,24
45 -1 = 44
44 / 2 = 22
22 / 2 = 11
11 - 1 = 10
10 / 2 = 5
Итого: 2 1 1 2 1
Наименование среднего столбца лазерные
в 1 не хватает жесткий диск и дикеты в последнем флэшь устройства и карты памяти
<span>program</span> Project1;
uses crt;
<span>const</span>
<span>//Разделители слов.</span>
D <span>=</span><span>[</span><span>'.'</span><span>,</span><span>','</span><span>,</span><span>':'</span><span>,</span><span>';'</span><span>,</span><span>'!'</span><span>,</span><span>'?'</span><span>,</span><span>'-'</span><span>,</span><span>' '</span><span>,</span> #<span>9</span><span>,</span> #<span>10</span><span>,</span> #<span>13</span><span>]</span>;
<span>var</span>
S <span>:</span><span>String</span>;
i<span>,</span> Cnt<span>,</span> Len <span>:</span><span>Integer</span>;
<span>begin</span>
<span>repeat</span>
<span>Writeln</span><span>(</span><span>'Задайте строку:'</span><span>)</span>;
<span>Readln</span><span>(</span>S<span>)</span>;
Len <span>:=</span> Length<span>(</span>S<span>)</span>;
Cnt <span>:=</span><span>0</span>;
<span>for</span> i <span>:=</span><span>1</span><span>to</span> Len <span>do</span><span>begin</span>
<span>//Пропускаем разделители.</span>
<span>if</span> S<span>[</span>i<span>]</span><span>in</span> D <span>then</span> Continue;
<span>//Отслеживаем начало слова.</span>
<span>if</span><span>(</span>i <span>=</span><span>1</span><span>)</span><span>or</span><span>(</span>S<span>[</span>i <span>-</span><span>1</span><span>]</span><span>in</span> D<span>)</span><span>then</span><span>begin</span>
<span>if</span> S<span>[</span>i<span>]</span><span>in</span><span>[</span><span>'a'</span><span>,</span><span>'A'</span><span>]</span><span>then</span> Cnt <span>:=</span> Cnt <span>+</span><span>1</span>;
<span>end</span>;
<span>end</span>;
<span>Writeln</span><span>(</span><span>'В заданной строке найдено '</span><span>,</span> Cnt<span>,</span><span>' слов,'</span><span>)</span>;
<span>Readln</span><span>(</span>S<span>)</span>;
<span>until</span> S <> <span>''</span>;
<span>end</span>.