Задача на строки по Pascal

Хыиуду
Сообщения: 2388
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

30 ноя 2009, 09:13

flag:=true;
for i:=1 to length(s) do
begin
if s='(' then flag:=false;
if flag then s1:=s1+s;
if s=')' then flag:=true;
end;
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
000_Oleg_000
Сообщения: 1
Зарегистрирован: 14 апр 2018, 20:40

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.
Ответить