Составьте программу позволяющую выяснить сколько раз встречается каждая буква алфавита во...

Question

Составьте программу позволяющую выяснить сколько раз встречается каждая буква алфавита во введенной строке s. Pascal abc Пример август вывод кол букв а=1 кол букв б=0 кол букв в=1 и т.д

Answer 1

Var s: string;
    a: array['a'..'я'] of integer;
    i: integer;
    c: char;
begin
  write('Введите слово: ');
  readln(s);
  for i := 1 to length(s) do
    inc(a[s[i]]);
  writeln('Количество букв ');
  for c := 'а' to 'я' do
    writeln(c, ': ', a[c]);
end.

Comments

Спасибо