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

@Maxusha · Регистрация: 19.12.2013

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

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

@ildwine · 19.12.2013, 07:42

Pascal

var
  i, k : integer;
  c : char;
  s : string;
begin
  k := 0;
  write('строка: ');
  readln(s);
  write('буква: ');
  readln(c);
  for i := 1 to length(s) do
    if s[i] = c then inc(k);
  writeln('буква ', c, ' встречается ', k, ' раз')
end.

Добавлено через 4 минуты
А лучше так (в первом варианте считает все символы, а тут только буквы):

Pascal

const
  bukva = ['a'..'z', 'A'..'Z', 'а'..'я', 'А'..'Я', 'ё', 'Ё'];
var
  i, k : integer;
  c : char;
  s : string;
begin
  k := 0;
  write('строка: ');
  readln(s);
  repeat
    write('буква: ');
    readln(c)
  until c in bukva;
  for i := 1 to length(s) do
    if s[i] = c then inc(k);
  writeln('буква ', c, ' встречается ', k, ' раз')
end.

@Maxusha 0 / 0 / 0 Регистрация: 19.12.2013 Сообщений: 15
		1
	Подсчитать сколько раз в строке встречается заданная буква 19.12.2013, 00:41. Показов 23004. Ответов 1 Метки нет (Все метки) 6. Подсчитать сколько раз в строке встречается заданная буква. 0

	19.12.2013, 07:42

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

Решение