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

Question

1)дана строка S определить и напечатать сколько символов *
2)дана строка S вместо каждого символа * записать символы 0 Напечатать полученную строку
3)дана строка S получить и напечатать строку Т образуемую путем прочтения строки S начиная с ее конца
4)дана строка S в которой есть одна открывающаяся скобку и одна закрывающаяся скобку Удалить все символы между этими скобками

Answer 1

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.