Дано предложение. Определите количество букв "а" до первой запятой

@SmileMC · Регистрация: 18.03.2014

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

Дано предложение. Определите количество букв "а" до первой запятой.

@erl27 · 19.05.2014, 22:48

Pascal

var
  s: string;
  i, q: byte;
 
begin
  writeln('Введите предложение: ');
  readln(s);//вводим строку
  q := 0; //количество символов = 0
  i := 0;
  repeat
    inc(i);
    if s[i] = 'а' then inc(q)
  until (s[i] = ',')or(i = Length(S));
  writeln('Количество букв "а" до 1-й запятой: ', q)
end.

@SmileMC 0 / 0 / 0 Регистрация: 18.03.2014 Сообщений: 20
		1
	Дано предложение. Определите количество букв "а" до первой запятой 19.05.2014, 21:48. Показов 1879. Ответов 1 Метки нет (Все метки) Дано предложение. Определите количество букв "а" до первой запятой. 0

	19.05.2014, 22:48

Опции темы

Дано предложение. Определите количество букв "а" до первой запятой

Решение