Увеличить строку, вдвое дописав рядом с каждым символом строки такой же - Turbo Pascal

Формулировка задачи:

Дана строка, увеличить строку вдвое дописав рядом с каждым символом строки такой же

Код к задаче: «Увеличить строку, вдвое дописав рядом с каждым символом строки такой же - Turbo Pascal»

textual
var
  s: string;
  i: integer;
 
begin
  Writeln('Введите строку: ');
  Readln(s);
  for i := Length(s) downto 1 do
    Insert(s[i], s, i);
  Writeln(s);
  Readln
end.

8   голосов, оценка 3.875 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы