Составьте программу, позволяющую удвоить все буквы "а" в строке

Question

Составьте программу, позволяющую удвоить все буквы "а" в строке

История

Гость

Ответ(ы) на вопрос:

Accepted Answer

1 2 3 4 5 6 7 8 9 10 11 12 13 uses crt; var s,s1:string; i:integer; begin clrscr; readln(s); s1:=''; for i:=1 to length(s) do s1:=s1+s[i]+s[i]; writeln(s1); readln; end.