В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
данич36
данич36
24.02.2023 03:33 •  Информатика

Команда создания файла документа. Команды сохранения документа Save и Save as. В чем разница?

Команда открытия существующего документа.

Назовите основные команды редактирования текста документа.

Как осуществляется разбиение текста на абзацы.

Назовите команды работы с буфером обмена.

Как осуществляется поиск и замена фрагментов текста.

Форматирование символов в абзаце.

Форматирование абзацев.

Что такое колонтитулы? Какая информация помещается в колонтитул?

Как осуществляется вставка разрыва страниц, строк, разделов?

Как осуществляется вставка нумерации страниц в документ?

Что относится к параметрам страницы и как они устанавливаются?

Защита документа от несанкционированного доступа. Установка различных паролей и их назначение.

Настройка интерфейса программы. Настройка панели инструментов.

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

// 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.

Пример:
Вводите: Как найти все слова, где букв - три?
Как все где три
0,0(0 оценок)
Ответ:
Isabekov1
Isabekov1
24.06.2021 06:50
Var s,tmp:string;
     i,n:integer;
     flag,word:boolean;
function letter (const let:char):boolean;
 begin
   if ((let>='a') and (let<='z')) or ((let>='A') and (let<='Z')) then letter:=true
     else letter:=false;
 end;
begin
  readln (s);
  s:=s+' ';
  n:=length(s);
  flag:=false;
  for i:=1 to n do
   begin
     if (letter(s[i])) and (not flag) then
      begin 
        flag:=true;
        tmp:='';
        word:=false;
      end else if (not letter(s[i])) and (flag) then
      begin 
       flag:=false;
       if (word) and (not (tmp='')) then writeln (tmp);
      end;
     if (flag) then
      begin 
        tmp:=tmp+s[i];
        if (s[i]='k') then word:=true;
      end; 
   end;
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота