Jater

Elena_Char

Nov 27th, 2012
112
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

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×