Найти строку, в которой каждый символ строки S удвоен

@EdinDzeko · Регистрация: 23.10.2014

Author24 — интернет-сервис помощи студентам

Разработать функцию Double(const S:string):string, возвращающую строку, в которой каждый символ строки S удвоен. С помощью данной функции у каждой строки из введенного набора удвоить каждый символ.

@APALoff · 26.11.2014, 12:07

Pascal

Function Double(S : String) : String;
Begin
  If Length(S)>0 then Double:=S[1]+S[1]+Double(Copy(S,2,Length(S)-1)) else Double:='';
end;

@EdinDzeko -25 / 0 / 0 Регистрация: 23.10.2014 Сообщений: 99
		1
	Найти строку, в которой каждый символ строки S удвоен 25.11.2014, 20:10. Показов 1849. Ответов 1 Метки нет (Все метки) Разработать функцию Double(const S:string):string, возвращающую строку, в которой каждый символ строки S удвоен. С помощью данной функции у каждой строки из введенного набора удвоить каждый символ. 0

	26.11.2014, 12:07

Найти строку, в которой каждый символ строки S удвоен

Решение