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

@Михаили · Регистрация: 25.04.2017

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

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

Помогите пожалуйста, сам не понимаю.

@ZX Spectrum-128 · 12.10.2017, 07:47

Pascal

var
  s: string;
  ch: char;
  i, k: integer;
 
begin
  readln(s);
  readln(ch);
  k := 0;
  for i := 1 to length(s) do
    if s[i] = ch then
      inc(k);
  writeln(k);
end.

@Михаили 1 / 1 / 0 Регистрация: 25.04.2017 Сообщений: 10
		1
	Дано любое слово и некоторая буква. Посчитать количество заданных букв в этом слове 11.10.2017, 21:41. Показов 1520. Ответов 1 Метки нет (Все метки) Дано любое слово и некоторая буква. Посчитать количество заданных букв в этом слове Помогите пожалуйста, сам не понимаю. 0

	12.10.2017, 07:47

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

Решение