Дано слово. Записать каждый символ по два раза. Формат ввода: s - слово Формат вывода: s1 - новое слово Пример ввода: дождь Пример вывода: ддоожжддьь
Дано слово. Записать каждый символ по два раза.
Формат ввода: s - слово
Формат вывода: s1 - новое слово
Пример ввода: дождь
Пример вывода: ддоожжддьь
Гость
Ответ(ы) на вопрос:
Гостьvar s,s1:string;
i:integer;
begin
write('Введите слово: ');
readln(s);
s1:='';
for i:=1 to length(s) do s1:=s1+s[i]+s[i];
writeln(s1);
end.
Пример:
Введите слово: дождь
ддоожжддьь
Не нашли ответ?
Похожие вопросы