Помогите в языке программирования "Pascal".
 

Нужно помочь решить задачу(сессия уже на носу). Задача такова: Перетворить текст, взял каждое слово в скобки. Текст вводится с клавиатуры. Помогите кто-то, пожалуйста, реально очень нада, в долгу не останусь:drinks:

паскаль не изучал, да и не нужен он уже ни где)
но вот нашел код, переделать легко
данная программа ищет символ(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.

ДА я с тобой пойду только подожди я виллы возьму.

chemax, спасибо за труд ман, но чё то оно не пашет

щас напишу нормальную версию, почти переделал как надо

Добавлено через 9 минут
Слушай, а тебе надо чтобы обязательно в переменную строки вписывались скобки или можно просто выводить со скобками?

1gr0k, ему по моему что бы тупо выводилось) жаль что синтаксиса паскаля не знаю) думал что знаю, а выводит кучу ошибок)

все, програмка готова.
Если интересно:
Оффтоп

Program str;
Var
k,s:string;l,n,i:integer;
Begin
writeln('Vvedite stroku s=');
readln(s);
write('Rezultat: (');
for i:=1 to length(s) do
if (s[i+1]=' ') then
begin
write(s[i]);
write(')');
end
else
begin
if (s[i]=' ') then
write(' (')
else
write(s[i]);
end;
write(')');
readln;

end.

За всё спасибо ребята
P.S:За всё спасибо сеньёриты, вот вам Гуффи из мультиков набьют на пояснице, а тех кто против нас - набьют по печени с ключицей

Труб, опять плагиат)))

Ну аяк же, будем мочить всех, спина к спине, плечо к плечу, черенок и вила взрывная волна тротила.:skull: