Информатика, опубликовано 2018-08-22 23:08:56 by Гость
Удвоить каждую букву слова, стоящую в четной позиции (Pascal)
Ответ оставил Гость
Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 var s:string; i:integer; begin readln(s); i:=1; repeat insert(s[i],s,i); inc(i,2) until i>length(s); writeln(s) end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.