Задание:
Программа на Pascal ABC. С клавиатуры вводится маленькими русскими буквами строка, необходимо для каждого символа вывести, а) сколько раз его употребили иб) частоту употребления (отношение а к длине строки, не считая пробелов). Примечание 1. Выводить только для маленьких русских букв, пробелы не трогать. Пример. Вводится строка 'раз два три'. Нужно вывести: р — 2 раза, ч. У — 0,27 //Округление до сотых… Ну и так далее. Два раза один и тот же символ не выводить! Вводить новые переменные можно в любом количестве.
Решение:
var len,i: integer; st: string; c: char; ar: array['а'… 'я'] of integer; beginreadln (st); for i: =1 to length (st) do begin if (st[i] in ['а'… 'я']) then inc (ar[st[i]]); if (st[i] <> ') then inc (len); if (st[i]='е') then inc (yo); end; for c: ='а' to 'я' do if (ar[c] <> 0) then writeln (c,'- ',ar[c], ' ч. У — ',ar[c]/len: 1:2); if (yo <> 0) then writeln ('е', '- ', yo, ' ч. У — ', yo / len: 1:2); end.
Знаете другой ответ?