Какие буквы и сколько раз встречаются в тексте

@Хайзенберг777 · Регистрация: 15.04.2015

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

Строка, содержащая произвольный русский текст, состоит не более чем из 200 символов. Написать, какие буквы и сколько раз встречаются в это тексте. Ответ должен производиться в грамматически правильной форме, например а-25 раз, к-3 раза и т.д.

@ZX Spectrum-128 · 28.06.2015, 17:32

Дана строка символов. Определить, какие символы и сколько раз встречаются в данной строке

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

@Cyborg Drone · 28.06.2015, 17:55

Pascal

const Letters = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНЩПРСТУФХЦЧШЩЪЫЬЭЮЯ';
var s: string;
    i, p: byte;
    c: array [1..33] of byte;
begin
  for i := 1 to 33 do c[i] := 0;
  writeln('Введите строку:');
  readln(s);
  for i := 1 to length(s) do
    begin
      p := pos(s[i], Letters);
      if p > 0 then inc(c[(p - 1) mod 33 + 1])
    end;
  p := 0;
  writeln('Какие русские буквы и сколько раз встречаются в тексте:');
  for i := 1 to 33 do
    if c[i] > 0
      then begin
        p := 1;
        write(Letters[i], ' - ', c[i], ' раз');
        if not (c[i] mod 100 in [12..14]) and (c[i] mod 10 in [2..4]) then write('а');
        writeln
      end;
  if p = 0 then writeln('(Русские буквы в тексте не найдены)');
  readln
end.

@Хайзенберг777 0 / 0 / 0 Регистрация: 15.04.2015 Сообщений: 39
		1
	Какие буквы и сколько раз встречаются в тексте 28.06.2015, 15:22. Показов 1579. Ответов 2 Метки нет (Все метки) Строка, содержащая произвольный русский текст, состоит не более чем из 200 символов. Написать, какие буквы и сколько раз встречаются в это тексте. Ответ должен производиться в грамматически правильной форме, например а-25 раз, к-3 раза и т.д. 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	28.06.2015, 17:32	2
	Дана строка символов. Определить, какие символы и сколько раз встречаются в данной строке Добавлено через 1 минуту Подсчитать и вывести количество различных букв, которые входят в это предложение 0

	28.06.2015, 17:55

Какие буквы и сколько раз встречаются в тексте

Решение