//PascalABC.NET 3.1 сборка 1239
uses GraphABC;
const
n = 4;
begin
Window.CenterOnScreen;
var h := 100;
Window.SetSize(h * n, h * n);
Pen.Width := 3;
for var i := 1 to n - 1 do
begin
Pen.Color := clRandom;
Polyline((h * i, h * 0), (h * n, h * (n - i)), (h * (n - i), h * n), (h * 0, h * i), (h * i, h * 0));
end;
end.
Это, конечно, ужасный вариант с "много Copy", но если надо ...
Program primer4;
var s:string; i,k:integer;
begin
writeln('подсчет количества глухих согласных в тексте');
writeln('введите текст');
readln(s);
k:=0;
for i:=1 to length(s) do
if (copy(s,i,1)='к')or(copy(s,i,1)='п')or(copy(s,i,1)='с')or
(copy(s,i,1)='т')or(copy(s,i,1)='ф')or(copy(s,i,1)='х')or
(copy(s,i,1)='ц')or(copy(s,i,1)='ч')or(copy(s,i,1)='ш')or(copy(s,i,1)='щ')
then k:=k+1;
writeln(k);
end.
Пример:
подсчет количества глухих согласных в тексте
введите текст
подсчет количества глухих согласных в тексте
17
35 = 2^i
i = 6 бит - 1 символ
10*6 = 60 бит информации
Первая задача:
1. Находим общее количество символов 10 * 15 = 150 (симв.)
2. Находим количество бит на 1 символ по формуле N=2^i, где N -общее количество символов, а i -количество бит на один символ.
32 = 2^i, откуда следует i=5.
3. Объем сообщения равен произведению количества символов на количество бит на один символ 150 * 5 = 750 (бит)
Ответ: 750 бит
Вторая задача:
1. 1.5 кб = 1.5 * 1024 байт = 1536 байт = 1536 * 8 бит = 12288 бит
2. Находим сколько бит приходится на один символ 12288/3072=4(бит/симв.)
3. По формуле из предыдущей задачи N=2^i находим N=2^4=16.
Ответ: В алфавите 16 символов.