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.

налить в 9-литровое 9 литров

отлить 2 раза по 4 л. останется 1 л его вылить в 4х литровое

налить полное 9-литровое ведро и отлить из него в 4х литровое в котором уже есть 1 литр туда войдет 3 литра в 9-литровом останется 6 литров

var a: array[1..50] of integer; i,f, n: integer;

begin write('n='); readln(n); for i : = 1 to n do begin write('a', i, '='); readln(a[i]); end; f : = 0; writeln; for i : = 1 to n - 1 do if (a[i] mod 2 < > 0) and (a[i + 1] mod 2 = 0) then f : = 1; if f = 0 then begin for i : = 1 to n do if a[i] < 0 then write(a[i]: 4); end else for i : = 1 to n do if a[i] > 0 then write(a[i]: 4); end.