Скачиваний:
301
Добавлен:
04.03.2014
Размер:
51.2 Кб
Скачать

Дана последовательность символов латинского алфавита, заканчивающихся точкой Слова разделяются запятой.

Сосчитать количество слов, начинающихся и заканчивающихся одной и той же буквой.

  • Текст программы.

var

s:string;

i,l,k:integer;

ch,a,b:char;

begin

k:=0;

writeln ('Enter stroky:=');

read(ch);

while ch<>'.' do

begin

s:=s+ch;

read (ch);

end;

s:=s+ch;

l:=length(s);

a:=s[1];

for i:=1 to l do

if (s[i]=',') or (s[i]='.') then begin

b:=s[i-1];

if (a=b) then k:=k+1;

a:=s[i+1];

end;

writeln('Kol-vo slov:=',k);

readln;

readln;

end.

  • Исходные данные: aba, aba, aba. Результата: 3; aba, bbc,dbf. Результат: 1

Текст программы:

var

ch,c,s:char;

i:integer;

begin

i:=0;

repeat

read(ch);c:=ch;

repeat

s:=c;

read(c);

until (c=',') or (c='.');

if ch=s then

inc(i);

until c='.';

writeln('kol-vo slov:',i);

readln;readln;

end.

  • Исходные данные: aba, aba, aba. Результата: 3; aba, bbc,dbf. Результат: 1