Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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