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.

125чел. это 5частей из 7

? чел. это 2 части из 7

 

125 чел. : 5 частей = (100+25): 5=100: 5+25: 5=20+5=25чел. это 1 часть из 7

25чел. х 2части=50 чел. , которые пришли на финиш после 1 часа

 

ответ: 50 чел.

стр1: 'дерево';

стр2: 'обработка';

стр3: стр1+стр2;

                      стр3: ='деревообработка';