000_Oleg_000 » 14 апр 2018, 20:55
var a,b,k:string;
i,kl,ks,n:longint;
begin
write('Введите букву:');
readln(k);
write('Введите тест:');
readln(a);
n:=length(a);
for i:=1 to n-1 do begin
b:=copy(a,i,1);
if (b=k)then kl:=kl+1
else kl:=0;
if kl=3 then ks:=ks+1;
end;
write(ks);
end.
var a,b,k:string;
i,kl,ks,n:longint;
begin
write('Введите букву:');
readln(k);
write('Введите тест:');
readln(a);
n:=length(a);
for i:=1 to n-1 do begin
b:=copy(a,i,1);
if (b=k)then kl:=kl+1
else kl:=0;
if kl=3 then ks:=ks+1;
end;
write(ks);
end.