Pascal. 1.определить количество слов в предложении. 2.определить какая буква в строке встречается чаще: первая или последняя. 3. написать программу меняющую слово "петр" на "иван".

Для подсчёта слов в предложении, вот код: program slova; var   s: string;   r,i: integer; begin   writeln('введите ваше предложение');   readln(s);   s: =s+' ';   for i: =1 to length(s)-1 do   if (s< > ' ') and (s[i+1]=' ') then   r: =r+1;   writeln('в предложении ',r, ' слов. ');   readln; end. какая буква встречается чащеprogram bykv; var s: string;       i,k1,k2: byte; begin       write('введите строку: '); readln(s);       for i: =2 to length(s)-1 do         if s[i]=s[1] then inc(k1)           else if s[i]=s[length(s)] then inc(k2);       writeln('первая буква встречается ',k1);       writeln('последняя буква встречается ',k2);       writeln('вывод: ');       if k1> k2 then writeln('первая буква встречается чаще')         else if k1< k2 then         writeln('последняя буква чаще')           else writeln('одинаково');       readln; end. изменить слово петя на иван в строке program test; var s,t,z,p: string; j: integer; begin writeln('введите ваше предложение'); readln(s); write('введите слово которое хотите заменить: '); readln(t); write('введите замену слову: ', t, ' < > '); readln(z); if pos(t,s)< > 0 then j: =pos(t,s); p: =copy(s,1,j-1); p: =p+z; p: =p+copy(s,j+length(t),length(s)); writeln(p); readln; end.

Program pr1; uses crt; var mas: array[1..20] of integer; i,v,a,k,x: integer; begin clrscr; writeln('vvedite a'); readln(a); writeln('vvedite k'); readln(k); for i: =1 to 20 do begin writeln('vvedite ',i,'-ji simvol'); readln(mas[i]); end; v: =0; x: =0; for i: =1 to 20 do begin if mas[i] mod 2< > 0 then v: =v+mas[i]; if mas[i]> a then writeln('> a ',i); if (mas[i] mod k=0) and (mas[i]> 0) then x: =x+1; end; writeln('summa nechetnih - ', v ); if x> 0 then writeln('true') else writeln('false'); end.