паскаль не изучал, да и не нужен он уже ни где)
но вот нашел код, переделать легко
данная программа ищет символ(k) в строке(s)
Program str;
Var
s:string;k:char;n,i:integer;
Begin
n:=0;
writeln('Vvedite stroku s=');
readln(s);
writeln('Vvedite simvol k=');
readln(k);
for i:=1 to length(s) do
if s[i]=k then
n:=n+1;
writeln('rezulitat=');
readln;
end.
перделать примерно по такому алгоритму
Program str;
Var
k,s:string;n,i:integer;
Begin
n:=1;
writeln('Vvedite stroku s=');
readln(s);
for i:=1 to length(s) do begin //цикл на просмотр массива с текстом
if s[i]=' ' then //если символ в тексте пробел то
k[n]:=')';
n:=n+1;
k[n]:=' ';
n:=n+1;
k[n]:='(';
n:=n+1;
else //в противном случае
k[n]:=s[i]
n:=n+1;
end;
for i:=1 to length(k) do begin //вывод данных
writeln('rezulitat=', k[i]);
readln;
end;
end.
|