Ответ: 5
В первый раз при прохождении цикла i = 0, затем проверяется верно ли, что i<2 (а это верно) и начинается выполние цикла, пока i<2.
После первой итерации:
i = 1
S = 1
После второй итерации:
i = 2
S = 5
Третья итерация не начнётся, т. к. i = 2, что не удовлетворяет условию цикла.
P. S. итерация - это один шаг в цикле
1. Наливаем 3 литра - переливаем в 8 л. кувшин.
<span>2. Снова набираем и переливаем в 8 л кувшин. </span>
<span>3. Наливаем снова и переливаем в 8 литровый кувшин 2 литра, а в 3-х литровом остался 1 л. </span>
<span>4. Из 8 л все выливаем, а туда переливаем 1 л. </span>
<span>5. А теперь два раза наполняем 3- х л. кувшин и доливаем по 3 литра в 8 л. Будет 7 литров</span>
Для создания и редактирования графического изображения
<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>.
Зубр - I
Зубр & Тур - II
Тур - III
Решение: I+III - II (18000+12000)-5000=25000