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.

1. utfa.fps

2.какую программу?

3. x(n)=5n²-4n-1

xn-нечётное тогда, когда n-чётное

x(0)=-1

x(2)=11

x(4)=63

x(6)=155

x(8)=287

x(10)=459

x(12)=671

x(14)=923

x(16)=1215

x(18)=1547

x(20)=1919

1)никакие художники не могут повторить замечательный стиль рисования известного художник маковского

 

2)все великие писатели в своё время переносили критику,но это делало их только сильнее.

дальше не придумал

(с уважением tipaeinstein)