Все готовые лабы по паскалю (1 задание)

Посмотреть архив целиком

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

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






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


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



Случайные файлы

Файл
102977.rtf
47206.rtf
5496.rtf
27941-1.rtf
133026.rtf




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.