Напишите программу для подсчета суммарного количества букв "м" и "н" в слове Y

@Tima007 · Регистрация: 18.10.2013

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

Напишите программу для подсчета суммарного количества букв "м" и "н" в слове Y.
если не трудно с объяснением в комментах плиз))

@ermolay · 30.10.2013, 19:05

Pascal

var
  s: string;
  i,k: byte;
begin
  write('Введите слово: ');                     // приглашение на ввод слова
  readln(s);                                    // считываем слово
  for i:=1 to length(s) do                      // проходим в цикле от 1 до конца слова
    if s[i] in ['м','н'] then inc(k);           // если очередной символ в множестве искомых букв, то увеличиваем счетчик
  writeln('Букв "м", "н" в слове ',s,': ',k);   // вывод результата
end.

@Tima007 3 / 3 / 2 Регистрация: 18.10.2013 Сообщений: 49
		1
	Напишите программу для подсчета суммарного количества букв "м" и "н" в слове Y 30.10.2013, 18:46. Показов 2767. Ответов 1 Метки нет (Все метки) Напишите программу для подсчета суммарного количества букв "м" и "н" в слове Y. если не трудно с объяснением в комментах плиз)) 0

	30.10.2013, 19:05

Напишите программу для подсчета суммарного количества букв "м" и "н" в слове Y

Решение