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

0
Ответы (1)
  1. 25 февраля, 18:17
    0
    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.
Знаешь ответ на этот вопрос?