Free pascal. нужно написать программу, где после каждой буквы ch вставляется строка str1.

Var   s,str1: string;   ch: char;   i: integer; begin   write('введите текст: '); readln(s);   write('введите искомый символ: '); readln(ch);   write('введите добавляемый текст: '); readln(str1);   for i: =length(s) downto 1 do       if s[i]=ch then insert(str1,s,i+1);   writeln('результат: ',s);   readln; end. тестовое решение: введите текст: а роза упала на лапу азора введите искомый символ: а введите добавляемый текст: 12345 результат: а роза12345 упа12345ла12345 на12345 ла12345пу азора12345

Program project4; var ch: char; str,str1,str2: string; i: integer; begin      writeln('введите исходный текст: ');       readln(str);       writeln('введите строку которую нужно вставить: ');       readln(str1);       writeln('введите символ после которого нужно вставить: ');       readln(ch);       str2: ='';       i: =pos(ch,str);       while i> 0 do begin          str2: =str2+copy(str,1,i)+str1;           delete(str,1,i);           i: =pos(ch,str);       end;       writeln('результирующая строка: ',str2);               readln; end.

обозначи кол-во цветков, распустившихся позавчера за x, вчера - за (x - 11) (по условию). вчера распустилось на 11 цветков меньше, чем позавчера и на 32 меньше, чем сегодня и позавчера вместе.подставим x=12 (> 11) - цветков вчера, значит 12-11=1 - цветков завтра. цветков сегодня находим так: 32 (дано) - 11 (дано) = 21. 

ответ:

позавчера   - 12 цветков.

вчера- 1 (12 - 11 = 12+ 21 - 32) цветок.

сегодня - 21 цветок.