Question

Даны натуральное число n, символы S1...Sn, преобразовать последовательность, удалив каждый символ '.' и повторив все остальные. Помогите пожалуйста, для последней зачётки в этом году. В паскале...

Answer 1

var

s:string;

n:integer;

begin

readln(n);

readln(s);

for i:=1 to n do 

if (s[i]='.') then delete(s,i,1)

else insert(s[i],s,i);

writeln(s);

end.