Предмет: Другие предметы,
автор: 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.
Похожие вопросы
Предмет: Английский язык,
автор: kolomietsanna2008
Предмет: Английский язык,
автор: R36ORB
Предмет: Информатика,
автор: Delelfkkf
Предмет: Биология,
автор: osipovavika972