Даны натуральное число n, символы S1...Sn, определить число вхождений группы букв abc. Символьный и строковый тип. Помогите пожалуйста.. очень прошу..
в паскале..
Program StrokABC;
uses Crt;
var d,n,i,k:integer;
s:string;
begin
clrscr;
writeln(Введите n:);
readln(n);
repeat
clrscr;
readln(s);
until length(s)=n;
d:= length(s);
for i:=1 to d do
if (s[i]=a)and(s[i+1]=b)and(s[i+2]=c) then k:=k+1;
writeln(строка abc входит в данную строку ,k, раз);
readkey;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
