Дана строка символов.Подсчитать сколько раз не встречается буква а

16.12.2012, 19:57. **Показов** 1471. **Ответов** 3

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

@rangerx · 16.12.2012, 21:45

Сообщение от GhostSoldier

..сколько раз не встречается буква а.

"..НЕ втсречается..? Т.е. необходимо подсчитать количество символов отличных от 'а'? Или всё-таки "..В НЕЙ встречается..."?

16.12.2012, 21:46

Отличных от а

@rangerx · 16.12.2012, 22:05

Pascal

program prog;
 
var    
  str: String;
  count, i: Integer;
 
begin
  Write('Введите строку: ');
  ReadLn(str);
 
  count:= 0;
  
  for i:= 1 to Length(str) do
    if str[i] <> 'a' then Inc(count);
    
  WriteLn('Количество символов отличных от буквы "a": ', count);
end.

GhostSoldier
		1
	Дана строка символов.Подсчитать сколько раз не встречается буква а 16.12.2012, 19:57. Показов 1471. Ответов 3 Метки нет (Все метки) Дана строка символов.Подсчитать сколько раз не встречается буква а

@rangerx 2022 / 1621 / 489 Регистрация: 31.05.2009 Сообщений: 3,005
	16.12.2012, 21:45	2
	Сообщение от GhostSoldier ..сколько раз не встречается буква а. "..НЕ втсречается..? Т.е. необходимо подсчитать количество символов отличных от 'а'? Или всё-таки "..В НЕЙ встречается..."? 0

	16.12.2012, 22:05