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;
Задача на строки по Pascal
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
-
- Сообщения: 1
- Зарегистрирован: 14 апр 2018, 20:40
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.
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.