Удвоить каждую букву в слове, иные символы оставить без изменения

@Vlad220994 · Регистрация: 18.05.2011

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

@Puporev · 17.05.2013, 14:46

Pascal

uses crt;
const bk=['A'..'Z','a'..'z','А'..'я','Ё','ё'];
var s:string;
    i:byte;
begin
write('Введите слово: ');
read(s);
for i:=length(s) downto 1 do
if s[i] in bk then insert(s[i],s,i);
write(s)
end.

@Vlad220994 1 / 1 / 1 Регистрация: 18.05.2011 Сообщений: 73
		1
	Удвоить каждую букву в слове, иные символы оставить без изменения 17.05.2013, 14:20. Показов 3510. Ответов 1 Метки нет (Все метки) Удвоить каждую букву в слове, иные символы оставить без изменения 0

	17.05.2013, 14:46

Удвоить каждую букву в слове, иные символы оставить без изменения

Решение