Предмет: Информатика,
автор: VikaW
Даны натуральное число n, символы S1...Sn, преобразовать последовательность, удалив каждый символ '.' и повторив все остальные. Помогите пожалуйста, для последней зачётки в этом году. В паскале...
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Английский язык,
автор: amanjankirzhan
Предмет: Русский язык,
автор: aleksanovaksenya
Предмет: Математика,
автор: дракула5654
Предмет: Математика,
автор: novikaa