4 задачи

[lex@]

Дана строка содержащая текст на русском языке. В предложениях некоторые из слов записаны подряд несколько раз. Получить в новой строчке отредактированный текст, в котором удалены подряд идущие вхождения слов.
Напечатайте слово, в котором оставлены буквы, входяшие в исходное слово один раз.
Дано n строк русского текста. Найти в каждой строке количество слов, в которых ровно 3 буквы "а".
Дана строка текста из букв и цифр. Найти сумму и среднее арефметическое цифр, содержащихся в строке.*
пожалуйста срочно
Заранее благодарю

[Tkirill]

uses crt;
var
mas:array[1..300] of string[20];
s,st:string;
f:boolean;
i,j,k,l,m,n:integer;
begin
clrscr;
write( '-> ');
readln(s);
for i:=1 to 300 do
mas[i]:='';
k:=1;
i:=1;
st:='';
s:=s+' ';
repeat
f:=true;
if s[i]<>' ' then st:=st+s[i]
else
   begin
    for j:=1 to k do
    if mas[j]=st then f:=false;
    if f then begin mas[k]:=st; k:=k+1; end;
    st:='';
   end;
i:=i+1;
until i>length(s);
writeln;
st:='';
for i:=1 to k-1 do
 begin
  st:=st+mas[i]+' ';
 end;
writeln(st);
readln;
end.

[alex_fcsm]

uses crt;
var st:string;
    s,s1:set of char;
    i:integer;

begin
clrscr;
readln(st);
s:=[];s1:=[];
for i:=1 to length(st) do
 if not (st[i] in s) then s:=s+[st[i]]
    else if not (st[i] in s1) then s1:=s1+[st[i]];
s:=s-s1;
for i:=1 to length(st) do
 if st[i] in s then write(st[i]);
end.

[Tkirill]

uses crt;
const
m=['0'..'9'];
var
s,st:string;
a,b:char;
sum,sr,kol,i,j,n,o:integer;
begin
clrscr;
write(' -> ');
readln(s);
sum:=0;
kol:=0;
for i:=1 to length(s) do
 begin
  if s[i] in m then begin val(s[i],n,o); sum:=sum+n; kol:=kol+1; end;
 end;
writeln;
write(' summa ->',sum);
writeln;
write(' srednee arifm -> ',sum/kol:4:4);
readln;
end.

[alex_fcsm]

uses crt;
var st:string;
    i,n,sum,code,j:integer;

begin
clrscr;
readln(st);
sum:=0;n:=0;
for i:=1 to length(st) do
 if st[i] in ['0'..'9'] then begin
                              val(st[i],j,code);
                              sum:=sum+j;
                              inc(n);
                             end;
writeln('Summa ',sum,'   sr ',(sum/n):5:2);
end.

Tkirill опередил

[Tkirill]

uses crt;
var
mas:array[1..100] of string;
kola,i,j,kol,a,b,c,d,k,l,m,n:integer;
s,st,s1,s2,s3:string;
begin
clrscr;
i:=1;
write(' Vvedite kolichestvo strok ->  ');
readln(n);
for i:=1 to n do
  readln(mas[i]);
for i:=1 to n do
 begin
  j:=1;
  s:='';
  mas[i]:=mas[i]+' ';
  kola:=0;
   repeat
   if mas[i][j]<>' ' then
                    begin
                    s:=s+mas[i][j];
                    end
    else
     begin
      for k:=1 to length(s) do
       begin
       if s[k]='a' then kol:=kol+1;
       end;
      if kol=3 then kola:=kola+1;
      s:='';
      kol:=0;
     end;
   j:=j+1;
   until j>length(mas[i]);
     writeln(' В ',i,' строке ',kola,' слова с 3 буквами a ');
  end;
readln;
end.

[lex@]

всем спасибо огромное выручили