С клавиатуры вводится строка. Подсчитать сколько раз в нее входит подстрока abc.

Pascal ABC

Question

Информатика

Ростиславка

3 августа, 06:19

С клавиатуры вводится строка. Подсчитать сколько раз в нее входит подстрока abc.

Pascal ABC

+4

Ответы (1)

Знаете ответ?

Рита · Answer 1

Var

S:string;

i, k:integer;

Begin

k:=0;

Write ('Введите строку: ') ; ReadLn (S) ;

For i: = 1 to Length (S) - 2 do

if S[i]='a' then

if S[i+1]='b' then

if S[i+2]='c' then

k:=k+1;

WriteLn ('Искомое количество: ', k) ;

End.

С клавиатуры вводится строка. Подсчитать сколько раз в нее входит подстрока abc.Pascal ABC

С клавиатуры вводится строка. Подсчитать сколько раз в нее входит подстрока abc.

Pascal ABC