Дана строка. Определить количество букв А в этой строке

@walera15 · Регистрация: 16.05.2012

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

Дана строка. Определить количество букв А в этой строке.

@ermolay · 16.05.2012, 10:17

Pascal

var
  str: string;
  i,k: integer;
begin
  write('Введите строку: ');
  readln(str);
  for i:=1 to length(str) do
    if str[i] in ['A','a'] then //буквы латинские
                       // если нужны русские - их и подставляешь в условие
      k:=k+1;
  writeln('В строке ',k,' латинских букв "а"');
  readln;
end.

@walera15 0 / 0 / 0 Регистрация: 16.05.2012 Сообщений: 3
		1
	Дана строка. Определить количество букв А в этой строке 16.05.2012, 09:55. Показов 1685. Ответов 1 Метки нет (Все метки) Дана строка. Определить количество букв А в этой строке. 0

	16.05.2012, 10:17

Дана строка. Определить количество букв А в этой строке

Решение