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

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

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


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы