Предмет: Другие предметы,
автор: wert21
составьте программу, позволяющую удвоить все буквы "а" в строке
Ответы
Автор ответа:
2
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.
Интересные вопросы
Предмет: Химия,
автор: Аноним
Предмет: История,
автор: nazara051808
Предмет: Қазақ тiлi,
автор: alibiserik1
Предмет: Геометрия,
автор: Аноним
Предмет: Математика,
автор: sonakapralova103