Программа на pascal abc. с клавиатуры вводится - вопрос №2097603 от kajaiuw 03.05.2023 02:41

Question

Информатика: Программа на pascal abc. с клавиатуры вводится маленькими буквами строка, необходимо для каждого символа вывести, а) сколько раз его употребили и б) частоту употребления (отношение а к длине строки, не считая пробелов). примечание 1. выводить только для маленьких букв, пробелы не трогать. пример. вводится строка раз два три . нужно вывести: р - 2 раза, ч.у - 0.27 //округление до сотых ну и так далее. два раза один и тот же символ не выводить! вводить новые переменные можно в любом количестве.

kajaiuw · Answer

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....