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.

Лови решение на с++ с do while

Объяснение:

1 задача, ну тут все элементарно, думаю пояснения не нужны:

#include <iostream>

using namespace std;

int main() {

int a = 1, num;

cin >> num;

do {

 cout << a << " ";

 a += 2;

} while (a < num * 2);

}

2 задача (num++ делаю только для удобства, но можно везде использовать num + 1, при этом в условии надо написать a <= num):

#include <iostream>

using namespace std;

int main() {

int a = 1, num;

cin >> num;

num++;

do {

 cout << a << " + " << num - a << " = " << num << endl;

 a++;

} while (a < num);

}

#include <iostream>
using namespace std;
int main()
{
    int n, m, c;
    cout << "n = ";
    cin >> n;
    cout << "m = ";
    cin >> m;
    int a[n][m];
    for(int i = 0; i < n; i++)
    {
        cout << "Введите " << i + 1 << " рядок матрицы (" << m << " элементов) через пробел" << endl;
        for(int j = 0; j < m; j++)
        {
            cin >> a[i][j];
            if(a[i][j] % 2 == 1)
            {
                c++;
            }
        }
    }
    cout << "Количество нечетных элементов массива равно " << c;
}

#include <iostream>
using namespace std;
int main()
{
    int n, mi = 0, mj = 0, sum = 0;
    cout << "n = ";
    cin >> n;
    int a[n][n];
    for(int i = 0; i < n; i++)
    {
        cout << "Введите " << i + 1 << " рядок матрицы (" << n << " элементов) через пробел" << endl;
        for(int j = 0; j < n; j++)
        {
            cin >> a[i][j];
            if(a[i][j] < a[mi][mj])
            {
                mi = i;
                mj = j;
            }
        }
    }
    for (int j = 0; j < n; j++) 
   {
        sum += a[mi][j];
    }
    cout << "Сумма элементов рядка с минимальным элементом равна " << sum;
}