Question

ПАСКАЛЬ. ПОМОГИТЕ ПЖ!!!
N натуральное число и последовательность символов (строка) S1,s2 ,..., sn. Замените простые скобки в цепочке символов вертикальными скобками;

Answer 1

program raf105;

var

 s:string;

 n,i:integer;

begin

writeln('Введите строку:');

readln(s);

writeln('Введите номер символа после которого не нужно заменять скобки:');

readln(n);

for i:=1 to n do

 if (s[i] = '(') or (s[i] = ')')

   then s[i]:= '|';

writeln('Отредактированный вариант строки:');

writeln(s);

end.

Язык PascalABC