Определить количество слов, начинающихся с буквы "а"

@BaselTarik · Регистрация: 10.10.2012

Студворк — интернет-сервис помощи студентам

Написать программу!Буквенный тип!Через CHAR!Без массивов и стрингов!а буквенный тип
Дана последовательность слов, состоящих из латинских букв, соседние слова отделяются друг от друга запятыми, за последним точка. Определить количество слов, начинающихся с буквы "а".

@CodeR · 08.01.2013, 09:31

Pascal

Uses Crt;
Var ch:char;
    t,k:byte;
Begin
    ClrScr;
    writeln('Введите последовательность слов соседние слова отделяются друг от друга запятыми,за последним точка.');
    t:=0;
    Repeat
     ch:=readkey;
     write(ch);
     if (t=1)and(ch='a') then inc(k);
     if (t=1) then t:=0;
     if ch=',' then t:=1;
    Until ch='.';
    writeln;
    writeln('Слов начинающихся на "a" = ',k);
    readln;
End.

@Paster Fob · 08.01.2013, 10:09

Pascal

var
  i,count:byte;
  c:char;
 
begin
  i:=0;count:=0;
  repeat
    read(c);
    inc(i);
    if (i=1) and (c='a') then
      inc(count);
    if c=',' then i:=0;
  until c='.';
  writeln;
  writeln('кол-во слов на букву a : ',count);
  readln;
  readln
end.

@BaselTarik 0 / 0 / 0 Регистрация: 10.10.2012 Сообщений: 16
		1
	Определить количество слов, начинающихся с буквы "а" 08.01.2013, 01:30. Показов 1716. Ответов 2 Метки нет (Все метки) Написать программу!Буквенный тип!Через CHAR!Без массивов и стрингов!а буквенный тип Дана последовательность слов, состоящих из латинских букв, соседние слова отделяются друг от друга запятыми, за последним точка. Определить количество слов, начинающихся с буквы "а". 0

	08.01.2013, 10:09

Опции темы

Определить количество слов, начинающихся с буквы "а"

Решение