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

Question

83

в избранное ссылка

Знаете ответ?

rodef · Accepted Answer

50

rodef

31 марта 2023

Program gt; var a: string; l,i: longint; beginreadln (a); l: =length (a); for i: =1 to l dobeginwrite (a[i],a[i]); end; end.

комментировать

в избранное ссылка отблагодарить