❗❗❗❗❗ Скорость передачи данных составляет 77824 кбит/с. Какое количество байт можно передать за 10 секунд по этому протоколу?
В ответе укажите одно число — количество байт. Единицы из

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

begin
  var n:=ReadInteger('n=');
  if Abs(n).Between(100,999) then begin
    Writeln('Число трехзначное');
    if n.IsOdd then Writeln('Число нечетное')
    else Writeln('Число четное');
    if n div 100 = n mod 10 then Writeln('Его первая и последняя цифры равны')
    else Writeln('Его первая и последняя цифры не равны')
    end
  else Writeln('Число не трехзначное')
end.

Примеры
n= 452
Число трехзначное
Число четное
Его первая и последняя цифры не равны

n= 313
Число трехзначное
Число нечетное
Его первая и последняя цифры равны

n= 18
Число не трехзначное

Программа ищет и выводит все трехбуквенные слова, содержащие русские и/или латинские буквы в обоих регистрах. Слова могут разделяться любым количеством любых символов, кроме символа подчеркивания.

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

begin
  var s:=ReadlnString('Вводите:');
  var m:=s.Matches('\b\w{3}\b');
  if m.Count>0 then m.Println
  else Writeln('Нет трехбуквенных слов')
end.

Пример:
Вводите: Как найти все слова, где букв - три?
Как все где три