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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.