Сделайте сайт через блокнот тема «мировые информациионные войны»

//Pascal ABC.NET 3.1 сборка 1219

Var
 se:set of char;
 s:string;
 i,j,k:integer;
begin
k:=0;
se:=['Б','В','Г','Д','Ж','З','Й','К','Л','М','Н','П','Р','С','Т','Ф','Х','Ч','Ц','Ш','Щ','б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
readln(s);
 var ars:=s.split;
for i:=0 to ars.Length-1 do
 for j:=1 to length(ars[i])-1 do
  if (ars[i][j] in se) and (lowcase(ars[i][j])=lowcase(ars[i][j+1])) then
    begin
    inc(k);
    break;
   end;
writeln('Res=',k);
end.

Пример ввода:
Ввод йотированных звуков
Пример вывода:
Res=2

1. Определим скорость передачи в Мб/с

1 байт = 8 = 2³ бит.
1 Мбайт = (2¹⁰)² = 2²⁰ байт = 2²⁰ × 2³ = 2²³ бит.
Скорость 2¹⁸ бит/с равна 2¹⁸ / 2²³ = 2⁻⁶ Мбайт/с

2. Определим время, необходимое для передачи файла по А

10 Мбайт / 2⁻⁶ Мбайт/с = 10 × 32 с = 320 с

3. Определим время, необходимое для передачи файла по Б.

Объем файла после архивации составит 30% от объема исходного, следовательно и время передачи файла также будет составлять 30% от времени по варианту А.
320 с × 0.3 = 96 с
И еще 7 + 1 = 8 с нужны на подготовку файла.
Итого, время по варианту Б составит 96 + 8 = 104 с.

4. По варианту Б время меньше на 320 - 104 = 216 с, т.е. этот вариант быстрее.

ответ: Б216