Jater

Elena_Char

Nov 27th, 2012
119
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. {Дана непустая последовательность непустых слов из латинских букв;
  2. соседние слова отделены друг от друга запятой,
  3. за последним словом точка.
  4. Определить количество слов,
  5. которые начинаются и заканчиваются одной буквой.}
  6. var c,a,b,x:char;
  7.       k:integer;
  8. begin
  9.     writeln('input text with .');
  10.     k:=0;{счетчик кол-ва слов с одинаковой начальной и конечной буквой обнуляется}
  11.     repeat{}
  12.         readln(c);{читаем в переменную символ}
  13.             a:=c;{в переменную a кладем считанное значение(первую букву слова)}
  14. {дальше,с помощью цикла while, идем тупо пропуская все символы начиная со второго(первая ж уже в переменной a лежит), но запоминая каждый, что бы после ввода ','или '.' предыдущий символ(окончание слова) сохранился}
  15.             while (c<>'.')and(c<>',') do{естественно цикл пока не ',' или не '.'}
  16.             begin
  17.                 b:=c;{вот то самое запоминание предыдущего символа}
  18.                 readln(c);{тута вводишь след символ слова}
  19.             end;
  20.             if a=b then{если полученные первый и последний символ слова равны}
  21.                 inc(k);{счетчику +1}
  22.     until (c='.');
  23.     writeln('kol= ', k);
  24.     readln;
  25. end.
RAW Paste Data