👤
LASKAZE
a fost răspuns

Se da un text. Sa se dubleze fiecare litera din text. De exemplu, pentru textul 'tort" se va afisa textul ,,ttoorrtt"

Răspuns :

var 
 
 s,c:string;
 i,r:integer;
 
begin

 read(s);
 setlength(c,2*length(s));
 writeln;
 
 for i:=1 to length(s) do
  begin
  inc(r);
  c[r]:=s[i];
  inc(r);
  c[r]:=s[i];
  end;

 writeln(c);

end.
Vă mulțumim că ați accesat site-ul nostru dedicat Informatică. Sperăm că informațiile furnizate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Vă așteptăm cu drag să reveniți și nu uitați să ne salvați la favorite!


Ze Studies: Alte intrebari