Program LR8; Uses Crt;
VAR
I, J, N, M, k : integer;
S, P : string;
t : char;
Fi, Fr : text;
{----- ОСНОВНАЯ ПРОГРАММА -----}
Begin CLRSCR;
Assign (Fi, 'lr8.txt'); Reset (Fi);
p := ''; i := 0;
writeln ('Исходные данные:',#10#13);
while not eof(Fi) do begin
read (Fi, t); write (t);
end;
Writeln(#10#13, 'Введите строку из песни:'); Readln(P);
I := -1; k := 0;
Repeat I := I+1; J := 0; While (J < M) and (S[I + J] = P[J]) do
J := J+1;
Until (j = M) Or (I = N-M);
Writeln('Количество одинаковых предоложений: ', k);
Repeat Until KeyPressed
end.
Я и ты - две планеты две мечты
Только говорим на разных языках
Город твой за невидимой чертой
Мы с тобой живём на разных берегах
Белое вино луны, ночь, аэропорт и мы
В целом мире ни души быть или не быть скажи
И нет проблем у любви другой шенген
Без границ и глупых стен между нами только небо и сны
И нет проблем у любви другой шенген
Без границ и глупых стен между нами только солнце весны
Я и ты снова рейс из пустоты
Не остановить секунды на часах
Мир так мал я не ждал и не искал
А нашёл тебя в далёких городах
Белое вино луны, ночь, аэропорт и мы
В целом мире ни души быть или не быть скажи
И нет проблем у любви другой шенген
Без границ и глупых стен между нами только небо и сны
И нет проблем у любви другой шенген
Без границ и глупых стен между нами только солнце весны
Сообщение отредактировано: Lapp -