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

Вводятся подстрока и строка. определить, сколько раз данная подстрока входит в строку?

👇
Ответ:
Var count, P: integer;
    S, PS: string;
Begin
     readln(S, PS);
     P:=POS(PS,S);
     while P>0 do
     begin
          count := count + 1;
          Delete(S, P, Length(PS));
          P:=POS(PS, S);
     end;
     writeln(count);
end.

Вот так =)
4,8(52 оценок)
Открыть все ответы
Ответ:
FzdAngels
FzdAngels
03.01.2020

Первый действующий автоматический компью­тер был сделан в 1944 году в Гарвардском уни­верситете профессором Говардом Эйкеном и группой инженеров из корпорации «Интернешнл Бизнес Машинз». Они назвали свое устройство «Гарвард Ай Би Эм—1». Это была первая машина, которая могла выполнять длинный список вычис­лительных операций. Она могла работать с 23-разрядными числами — сложить два таких числа за 0,3 секунды и умножить их за 4 секунды. В машине были использованы электрические и ме­ханические, а не электронные детали. Как только стали использоваться электронные детали, скоро­сть работы компьютера резко возросла.

4,5(88 оценок)
Ответ:
RaNoM
RaNoM
03.01.2020

Общ.утв - 

Все люди любят когда их хвалят 

Каждый человек на земле может путешевствовать

Все животные имеют обмен веществ

 

Частн.утв - 

Некоторые животные уже вымерли

Некоторые люди болеют раком 

Некоторые бабочки не могут летать из - за нехватки пыльцы на крыльях

 

Обществ.суж

Ни один из людей не может слетать на солнце 

Ни один из животных не может говорить по человечьему языку (кроме попугая)

Ни один из новорожденных детей не может бегать

 

Частн.суж

Некоторые компьютеры не являются рабочими 

Некоторые животные не являются вымершими

Некоторые люди не являются животноводами

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