<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>.
Леонард Эйлер<span> — математик, механик, </span>физик<span> и </span>астроном<span>. Решение задач с помощью кругов Эйлера...</span>
Сами команды:
Опустить перо
сместиться на вектор(0,2)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
сместиться на вектор(-2,0)
Для перевода необходимо умножить разряд числа на соответствующую ему степень разряда.
101011 = 25*1 + 24*0 + 23*1 + 22*0 + 21*1 + 20*1 = 32 + 0 + 8 + 0 + 2 + 1 = 43
Var i,k,p,r,m,n: integer;
<span>begin
</span><span> write('размер клетки k = '); readln(k);
</span><span> write('радиус круга r = '); readln(r);
</span><span> n:=r div k;
</span><span> if ((r mod k)>0) then inc(n);
</span><span> m:=0; p:=n-1;
</span><span> for i:=1 to n-1 do
</span><span> begin
</span><span> if Ceil(sqrt(r*r-k*i*k*i))<=p*k then
</span><span> begin
</span><span> p:=p-1;
</span><span> m:=m+n-i;
</span><span> end;
</span><span> end;
</span><span> m:=4*n*n-4*m;
</span><span> writeln(m);
</span><span>end.
</span>размер клетки k = 1
<span>радиус круга r = 5
</span><span>88
</span>размер клетки k = 3
<span>радиус круга r = 7
</span><span>32
</span>размер клетки k = 4
<span>радиус круга r = 5
</span><span>12
</span>