У зв'язку з розвитком науки і техніки, а також у зв'язку з появою попиту на ринку послуг в галузі телекомунікацій було вирішено ввести нову послугу, на базі новітньої технології IP-телефонії. IP-телефонія - це технологія передачі голосового трафіку по каналах мережі Internet, тобто по мережах з пакетною маршрутизацією (VoIP, Voice over IP). На відміну від IP-телефонії, традиційна телефонія - це передача голосу з виділенням окремого каналу для кожного з'єднання. Більш доступною мовою "IP-телефонія" - це передача телефонних з'єднань по IP, Інтернет-протоколу.
Var a:array [1..100] of integer;
s,i,k,n:integer;
sr:real;
begin
writeln('n=');
readln(n);
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
s:=0;
k:=0;
for i := 1 to n do
begin
s:=s+a[i];
sr:=s/n;
end;
for i := 1 to n do
if a[i]>sr then inc(k);
writeln('sr=',sr,' k=',k);
readln;
<span>end.</span>
Первую букву можно выбрать десятью способами, вторую - 33-мя, третюю тоже 33-мя. Четвертая и пятая при этом детерминированны и равны второй и первой соответственно.
Итого: 10*33*33 = 10890
1) 3
2) 4
3) 3
4) 1
5) 3
6) 2
7) 2
8) 3 (?)
9) 3
10) 2
<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>.