Поиск, вставка символов - Pascal ABC

Формулировка задачи:

Здравствуйте! Помогите пожалуйста решить задачу. Огромное спасибо заранее. После символа «:» вставить «*», если количество символов «=» равно 5

Код к задаче: «Поиск, вставка символов - Pascal ABC»

textual
k:=0;
for i:=1  to length(s) do
if s[i]='=' then k:=k+1;
if k=5 then
for i:=length(s) downto 1 do
if s[i]=':' then insert('+',s,i+1);

9   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ