М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
alenalevkika79
alenalevkika79
09.04.2022 16:12 •  Информатика

Определить, сколько раз в тексте встречается заданное слово. написать программу, паскаль

👇
Ответ:
tatuxa223
tatuxa223
09.04.2022
Var
  s, sl, sc: string;   
  i, k: integer;

begin
  write('Введите текст ');
  readln(s);
  write('Введите слово ');
  readln(sl);
  s:=' '+s+' ';
  sl:=' '+sl+' ';
  for i := 1 to length(s) - length(sl) + 1 do   
  begin
    sc := copy(s, i, length(sl));   
    if sc = sl then inc(k);   
  end;
  if k = 0 then writeln('Не встречается')  
  else writeln('Встречается ', k, ' раз');
end.
4,6(33 оценок)
Ответ:
casha0032
casha0032
09.04.2022
Var
   k,i,L:integer;
   S,C:string;
Begin
Write('Введите текст: ');ReadLn(S);
Write('Введите искомое слово: ');ReadLn(C);
L:=Length(C);
S:=Copy(C,1,L-1)+' '+S+' ';
S:=LowerCase(S);
C:=LowerCase(C);
k:=0;
For i:= 1 to Length(S) do
    if S[i]in['а'..'я','А'..'Я','ё','Ё','0'..'9'] then
       if S[i+1]in[' ','-','(',')',',',';',':','.','!','?'] then
          if Copy(S,i-L+1,L) = C then k:=k+1;
WriteLn(k);
End.
4,6(81 оценок)
Открыть все ответы
Ответ:
slavik116
slavik116
09.04.2022

Не очень понятно, длину двоичного кода одного символа или длину двоичного кода всех 33 символов, как бы записанных в ряд..

Ну да ладно, вычислим, сколько информации содержит 1 символ при мощности алфавита = 33:

33 = 2ˣ => минимальный x = 6

Значит один символ будет нести 6 бит информации, то есть длина двоичного кода для записи одного символа равна 6.

Если мы умножим 6 на количество символов, то получим количество информации, требуемое для записи 33 букв, т.е.:

6*33 = 198 бит

ответ: Длина двоичного кода одной буквы равна 6, а 33 букв - 198.

4,4(71 оценок)
Ответ:
buslabik1
buslabik1
09.04.2022

c++

Объяснение:

#include <iostream>

using namespace std;

int main()

{

   int n;

   

   cout << "Введите размер массива: ";

   cin >> n;

   

   double *arr = new double[n];

   

   /*Ввод массива*/

   cout << "Введите массив: ";

   for(int i = 0;i < n;i++) {

       cin >> arr[i];

   }

   

   /*Вывод результата*/

   cout << "Результат: ";

   for(int i = 0;i < n;i++) {

       if(arr[i] < 0) {

           arr[i] = -1;

       }

       

       cout << arr[i] << " ";

   }

   return 0;

}

4,8(64 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ