Дано предложение. замените в нем все слова s1 на слово s2. на free pascal

Var p,s1,s2:string;
l,i:integer;
begin
writeln('Введите предложение:');
readln(p);
write('s1 = ');
readln(s1);
write('s2 = ');
readln(s2);
l:=length(s1);
i:=pos(s1,p);
while i<>0 do
 begin
 delete(p,i,l);
 insert(s2,p,i);
 i:=pos(s1,p);
 end;
writeln(p);
end.

Пример:
Введите предложение:
Купили в магазине Резиновую Зину, Резиновую Зину В корзинке принесли.
s1 = Зину
s2 = Зою
Купили в магазине Резиновую Зою, Резиновую Зою В корзинке принесли.

1)20m+40m=240

60m=240

m=240: 60

m=4

ответ: m=4

2)800k: 200=800

800k=800*200

800k=160000

k=160000: 800

k=200

ответ: k=200

3)(8x+2x)*8: 2=160

10х*8: 2=160

10х*8=160*2

10х*8=320

10х=320: 8

10х=40

х=40: 10

х=4

ответ: х=4

4)10+30t=20t+100

 

  не знаю

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ответ:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

#include

#include

using namespace std;

int main(int argc, char** argv) {

    int num, n, co;

    cout< < "number? "<

    cin> > num;

    cout< < "cifra? "<

    cin> > n;

    int count = 0;

    for (; num> 0; count++) {

        num /= 10;

    }

    for (int i = 0; i < count; i++) {

        if (num[i] == n) {

            co++;

        }

    }

    cout< < "number of "<

    return 0;

}

объяснение: