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

0 голосов
55 просмотров

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

Другие предметы (12 баллов) | 55 просмотров
Дан 1 ответ
0 голосов


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.

(26 баллов)
Похожие задачи