Продублировать элементы массива

[QuadroX]

Необходимо продублировать последовательные триады элементов массива. Как это можно сделать? Не могу нигде найти алгоритм.

Пример1: 12345 -> 123123456456
Пример2: abcdef -> abcabcdefdef

[evg_m]

Не могу нигде найти алгоритм.

а придумать(сформулировать) самому?
например
1.берем первые три
2 переносим в новый
3 переносим еше раз
4.если есть берем следующие три иначе закочить
5.повторить с п.2.

[savva]

что-то я забыл паскаль уже

a,c:string;

c[i]:=a[i]; так можно делать?

не знаю правильно или нет(есть пара ошибок связанных с моим постом выше) но по-моему скромному мнению примерно так должно быть

program Project4;

{$APPTYPE CONSOLE}

uses
  SysUtils;
   var
     a,c:string;
     x,z,h:integer;
   procedure Copypast(var a:string;var x:integer);
   var
       i,n:integer;
       b:string;
   begin
      n:=0;
      x:=x-2;   //Уменьшаем значение(чтобы если  5 букв то после первого захода не проверяла машина)
      while(n<>x) do
      begin
      for i:=n to i+2 do
           b[i]:=a[i];// b буфер
           inc(n);//         счётчик
           c[i]:=b[i];
           c[i+2]:=b[i];   //с результирующая строка
      end;
   end;
begin

   writeln('Enter chars');
   readln(a);
   x:=length(a);  //длина строки
   copypast(a,x);
   z:=length(c);
   for h:=0 to z do
   begin
     writeln(c[h]);//вывод строки
    end;

end.

[QuadroX]

savva Прога не работает.

Вроде сделал сам, но как-то криво. Очень не нравится, что для outputString мы не можем задать размер.

#include <iostream>
using namespace std;

void main()
{
	char inputString[] = "1234";

	int length = sizeof(inputString) / sizeof(char);
	char outputString[255] = "";
	int i = 0;	
	int j = 0;
	while (i < length)
	{
		outputString[j] = inputString[i];
		outputString[j+1] = inputString[i] + 1;
		outputString[j+2] = inputString[i] + 2;

		outputString[j+3] = inputString[i];
		outputString[j+4] = inputString[i] + 1;
		outputString[j+5] = inputString[i] + 2;
		
		i += 3;
		j += 6;
	}

	cout << outputString;
}

[savva]

я и написал что у меня пара ошибок,по скольку не могу обрабатывать строку поиндексно,а использовать массив char не удобно и как ты сказал криво,я и спрашивал как надо делать со стрингом ибо не помню в паскале как это делать.