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.

Using System;
// Написать программу, выводящую на экран таблицу квадратов
// четных чисел от 0 до 10 в убывающем порядке: 100, 81, 49...
// Составь блок-схему алгоритма, и напиши программу которая
// выводит на экране узор, состоящий из звездочек. Должно быть 20 строчек со звездочками так, чтобы в каждой последующей строке было на одну звездочку больше. Для вывода на экран строки, со- держащей N звездочек, используй команды
// String repeatedString = new String('*', N); Console.Write (repeatedString);
// Microsoft visual studio c#

namespace NoNamespace {
    internal class Program {

        private static void Main() {
            SquaresOfNumbersDesc();
            Stars(20, 10);
            Console.ReadLine();
        }

        private static void SquaresOfNumbersDesc() {
            Console.WriteLine();
            for (var i = 10; i >= 0; i = i - 2) {
                Console.Write("{0} ", i * i);
            }
            Console.WriteLine();
        }

        private static void Stars(int n, int start_stars) {
            Console.WriteLine();
            for (var i = 0; i < n; i++) {
                Console.WriteLine(new String('*', start_stars + i));
            }
            Console.WriteLine();
        }
    }
}

const
    handsfree = false;

var
    a: array[1..100] of real;
    i, n: integer;
    sum_pos, sum_neg: real;
    k_pos, k_neg: integer;

begin
    {ввод массива}
    if handsfree then
        n := random(20) + 5
    else begin
        write('n = ');
        readln(n);
    end;
    
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        if handsfree then begin
            a[i] := random(100) - 50;
            write(a[i], ' ');
        end
        else readln(a[i]);
    end;
    writeln();
    
    {подсчет}
    sum_pos := 0;
    k_pos := 0;
    sum_neg := 0;
    k_neg := 0;
    for i := 1 to n do
    begin
        if a[i] > 0 then
        begin
            sum_pos := sum_pos + a[i];
            k_pos := k_pos + 1;
        end;
        
        if a[i] < 0 then
        begin
            sum_neg := sum_neg + a[i];
            k_neg := k_neg + 1;
        end;
    end;
    writeln('average (positives) = ', sum_pos / k_pos);
    writeln('average (negatives) = ', sum_neg / k_neg);
end.