массивы испортили печень

[WOLFak]

var
 s:string;
 i:longint;
begin
 readln(s);
 i:=0;
while pos('то',s)<>0 do
 begin
  inc(i);
  delete(s,pos('то',s),2);
 end;
 writeln(i);
end.

[Olympian]

Program Prog;

var 
  S : string[100];
  i : Integer;
  Count : Integer
begin
  ReadLn(S);
  i := 1;
  Count := 0;
  if (S[1] <> '.') then
    while (S[i + 1] <> '.') do
       if (S[i] = 'т') and (S[i + 1] = 'о')
         Count := Count + 1;
  WriteLn(Count);
end.

Вот вроде такая прога - не компилил, писал прямо тут)
Добавил:Писал пока не видел прошлый пост..Выбирай любую теперь=)

[WOLFak]

вроде так

var   
 s:string;   
 i:longint;   
begin   
 readln(s); 
 s[length(s)]:=' ';  
 insert(' ',s,1);
 i:=0;   
while pos(' то ',s)<>0 do   
 begin   
  inc(i);   
  delete(s,pos(' то ',s),4);   
 end;   
 writeln(i);   
end.

это не будет работать если вместо разделения слов будет использоваться не пробел а что либо еще
вот это должно вроде работать

var   
 s:string;   
 i:longint;   
begin   
 readln(s); 
for i:=1 to length(s) do
 if (not ord(s[i]) in [128..239]) then
  s[i]:=' '; 
 insert(' ',s,1);
 i:=0;   
while pos(' то ',s)<>0 do   
 begin   
  inc(i);   
  delete(s,pos(' то ',s),4);   
 end;   
 writeln(i);   
end.

[veter_s_morya]

Вау! Оперативно работаете, ребята! Только я не смог разобраться. А попроще нельзя записать...? А то я еще не проходил inc(i);и delete, и вот эта вещь, s[length(s)]:=' ' меня тоже напугала. Волосы дыбом встали.

[WOLFak]

так... вот полная версия и работающая

  
var      
 s:string;      
 i:longint;      
begin      
 readln(s);    
for i:=1 to length(s) do   
 if (not ord(s[i]) in [128..239]) then   
  s[i]:=' ';    
 insert(' ',s,1);   // вставка символа ' '  в s с 1 позиции
 i:=0;      
while pos(' то ',s)<>0 do      
 begin      
  inc(i);      // увеличивает i на 1
  delete(s,pos(' то ',s),3);     // удаляет из s 3 символа начиная с позиции слова ' то '
 end;      
 writeln(i);      
end.

s[length(s)]:=' ' - этой вещи тут уже нет)

[veter_s_morya]

for i:=1 to length(s) do
if (not ord(s[i]) in [128..239]) then
s[i]:=' ';

WOLFak, дай коментарий выше сказанному!

[WOLFak]

вот это все кроме букв превращает в пробелы)))

for i:=1 to length(s) do  // идет по всей длине строки
if (not ord(s[i]) in [128..239]) then {если код символа НЕ входит в э... отрезок от 128 до 239 то заменить этот символ пробелом
в этом отрезке находятся все русские буквы тоесть если этот символ не русская буква то его замен на пробел}
s[i]:=' ';

[veter_s_morya]

И что у нас такое pos?

[WOLFak]

pos() это функция которая возвращает значение на какой позиции в строке находится данная подстрока иначе если ее там нету дает 0
пример
s='bla bla -bla';
pos(' ',s) будет равен 4
pos('d',s)=0

[veter_s_morya]

вся проблемма состоит в том, что нам не читали еще лекцию по функциям и продцедурам! Нам читали ветвления, циклы и массивы! Задачка должна решаться проще!