Răspuns:
program DouaSpatii;
var s:string;
i,k:integer;
v:array[1..330]of char;
begin
write('Dati sirul de caractere: '); read(s);
k:=0;
for i:=1 to length(s) do
begin
inc(k); v[k]:=s[i];
inc(k); v[k]:=' ';
inc(k); v[k]:=' ';
end;
writeln('Sirul obtinut, dupa fiecare caracter sunt afisate 2 spatii');
for i:=1 to k do
begin
write(v[i]);
if i mod 100=0 then writeln;
end;
end.
Explicație:
Se adaugă 2 spaţii după orice caracter... Prin caracter se înţelege orice simbol imprimabil, chiar şi spaţiul. Am folosit vector de caractere, deoarece rezultatul după adăugarea a două spaţii după orice caracter, lungimea şirului rezultant poate întrece dimensiunea maximă de 255, şi atunci toate caracterele ce depăşesc dimensiunea maximă vor fi trunchiate
