Скорость передачи данных через модемное соединение равна 73728 бит/с.Передача текстового файла через это соединение заняла 20 с. Определитесколько символов содержал переданный текст, если известно, что он былпредставлен в 16-битной кодировке Unicode.

Плз

Алгоритм решения следующий:

Сначала считывается введенное слово в переменную. Далее, в цикле от начала слова и до его конца проверяется, является ли текущая буква, равной искомой, то есть букве "а". Если такая буква найдена, то выводится её позиция в слове.

А теперь комментарий по каждой из строчек кода.

// Блок объявления переменных
var a:string; 
var i:integer;
// Начало программы
begin
// Ввод слова
writeln('Введите слово');
// Считывание слова
read(a);
// Цикл от 1 до длины считанного слова
for i:=1 to length(a) do begin
// Условие на то, является ли текущая буква заданной
if (a[i]='а') then begin
// Если является, вывод её позиции на экран
writeln('Найдена буква “а”, ее позиция:' , i);
// и прерывание дальнейшего цикла, выход из него
break;
// Завершение блока "if"
end;
// Завершение цикла
end;
// Завершение программы
end.

Данные в каждый массив вводим по строго по возрастанию через пробел, признак окончания ввода - число 0 или отрицательное, в конце ввода Enter.

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadSeqIntegerWhile('Последовательность 1:',t->t>0).ToArray;
  var b:=ReadSeqIntegerWhile('Последовательность 2:',t->t>0).ToArray;
  (var n,var m):=(a.Length-1,b.Length-1);
  (var i,var j,var k):=(0,0,0);
  repeat
    if a[i]=b[j] then begin k+=1; i+=1; j+=1 end
    else
      if a[i]<b[j] then i+=1 else j+=1;
  until (i>n) or (j>m);
  Writeln('k=',k)
end.

Пример
Последовательность 1: 2 3 5 8 11 14 19 23 38 0
Последовательность 2: 1 3 4 5 6 9 11 14 17 18 21 23 29 0
k=5