jungkokBTSlove
09.07.2022 09:20

Заполните таблицу истинности логического выражения.


Заполните таблицу истинности логического выражения.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Xmitejr
30.04.2020 18:27

1:Текстовый документ — это представленная на бумажном, электронном или ином материальном носителе информация в текстовой форме.

2:Ссилка — запись, которая идентифицирует документ или его часть. 

3:Чтоби поставить ссилку к разделу текстового документа,виберите вкладку ссилки со строки меню.

4:оглавление, сноски,ссилки и списки литератури.

5)Предметний указатель содержит список терминов и теле,рассматриваемихв документе, с укащанием страниц, на которих они упоминаются.

6)Ссилка используется в документе для связи с другим документом, а также для связи одной части документа с другой частью.

7)Незнаю.

0,0(0 оценок)
Ответ:
zac00
26.08.2022 01:11
Var
  s, w: string;
  i, X, n, k, p, q: integer;

begin
  Writeln('Введите фразу, разделяя слова ровно одним пробелом');
  Readln(s);
  Write('Введите номер слова для поиска: '); Readln(X);
  {
  Ищем в строке s местоположение слова номер Х.
  Его начальную позицию в строке обозначим p, а конечную - q
  }
  n := Length(s);
  i := 1; k := 0; p := 0; q := 0;
  repeat
    if s[i] = ' ' then
    begin
      Inc(k);
      if k = X - 1 then p := i + 1
      else if k = X then q := i - 1
    end;
    if q = 0 then i := i + 1
  until (q > 0) or (i > n);
  if (p = 0) then Writeln('Количество слов в строке меньше ', X)
  else if q = 0 then q := n;
  w := Copy(s, p, q - p + 1);
  if (Pos('а', w) > 0) or (Pos('о', w) > 0) then
    Writeln('Одна из букв (а,о) есть в слове "', w, '"')
  else Writeln('В слове "', w, '" нет ни буквы а, ни буквы о')
end.

Тестовое решение:
Введите фразу, разделяя слова ровно одним пробелом
Самая лучшая рыба- это колбаса!
Введите номер слова для поиска: 5
Одна из букв (а,о) есть в слове "колбаса!"

Введите фразу, разделяя слова ровно одним пробелом
Тестирование программ может служить доказательством наличия ошибок, но никогда не докажет их отсутствие!» Эд. Дейкстра, 1972 г.
Введите номер слова для поиска: 4
В слове "служить" нет ни буквы а, ни буквы о
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота