На подсчет полного набора символов(мощности алфавита) используемого при кодировании информации

134

434

Посмотреть ответы 2

Ответы на вопрос:

Сова00478902500

Информатика

4,5(57 оценок)

Var c: set of char; i, n: integer; s: string; begin c : = []; write('введите текст: '); readln(s); n : = 0; for i : = 1 to length(s) do if not (s[i] in c) then begin include(c, s[i]); n : = n + 1 end; writeln('мощность алфавита, использованного для строки, равна ', n) end. тестовый прогон: введите текст: в чащах юга жил бы фикус? да, но фальшивый мощность алфавита, использованного для строки, равна 35 введите текст: pi: =3.14159265; d: =pi*sqr(d)/4; мощность алфавита, использованного для строки, равна 22