Строки.

[Литеция]

Нужно решить две задачи в Делфи, 1 курс.

1. Дана строка, состоящая из русских слов, разделённых пробелами (одним или несколькими). Определить количество слов, которые содержат ровно три буквы "а".

2. Дан текстовый файл, каждая строка которого изображает целое число, дополненное слева и справа несколькими пробелами. Вывести сумму этих чисел и их количество.

[fenix-elite]

Пиши в Асю.

[SERG1980]

Ну вот один из вариантов задачи 2

procedure TForm1.Button1Click(Sender: TObject);
var SL:TStringList;
    i,sum:integer;
      s:string;
begin
 SL:=TStringList.Create;
 sum:=0;
 SL.LoadFromFile('c:\11.txt');//указываем путь к файлу
 for i:=0 to SL.Count-1 do
  begin
   s:=Trim(SL[i]);//удаляем пробелы
   sum:=sum+StrToInt(s);
  end;
 ShowMessage('Всего чиел: '+IntToStr(SL.Count)+#13#10+'Сумма чиел: '+IntToStr(sum));
 SL.Free;
end;

Для задачи 1

procedure TForm1.Button2Click(Sender: TObject);
var i,j,s3a,a:integer;
    stroka,s:string;
begin
 stroka:='ыаы  ыаваыа пропроп  вавпрпрапап      ыаыа укеукеаваа ролпрппро';
  s3a:=0;
  a:=0;
 for i:=1 to Length(stroka) do
  begin
   if stroka[i]<>' ' then s:=s+stroka[i]
   else if s<>'' then
    begin
     for j:=1 to length(s) do
     if s[j]='а' then Inc(a);
     if a=3 then Inc(s3a);
     a:=0;
     s:='';
    end;
  end;
  ShowMessage('В строке '+IntToStr(s3a)+' слова в котором 3 буквы "а"');
end;