1) дана строка S определить и напечатать сколько символов *

2) дана строка S вместо каждого символа * записать символы 0 Напечатать полученную строку

3) дана строка S получить и напечатать строку Т образуемую путем прочтения строки S начиная с ее конца

4) дана строка S в которой есть одна открывающаяся скобку и одна закрывающаяся скобку Удалить все символы между этими скобками

1)

var s:string; i, k:integer;

begin

read (s) ;

for i:=1 to length (s) do

if s[i]='*' then k:=k+1;

writeln (k) ;

end.

2)

var s:string; i:integer;

begin

read (s) ;

for i:=1 to length (s) do

if s[i]='*' then begin delete (s, i, 1) ; insert ('0', s, i) ; end;

writeln (s) ;

end.

3)

var s, s1:string; i:integer;

begin

read (s) ;

for i:=length (s) downto 1 do

s1:=s1+s[i];

writeln (s1) ;

end.

4)

var s:string; i, p1, p2:integer;

begin

read (s) ;

for i:=1 to length (s) do begin

if s[i]=' (' then p1:=i;

if s[i]=') ' then p2:=i-p1;

end;

delete (s, p1, p2) ;

writeln (s) ;

end.