Из натурального числа удалить заданную цифру. Число и цифру вводить с клавиатуры. Например, задано число 5683. Требуется удалить из него цифру 8. Получится число 563.
Const n=15; var a:array[1..n] of integer; i,s:integer; sr:real; begin Randomize; writeln('Массив:'); for i:=1 to n do begin a[i]:=random(21); write(a[i]:3); end; writeln; s:=0; for i:=1 to n do s:=s+a[i]; sr:=s/n; writeln('Среднее арифметическое = ',sr:6:2); writeln('Номера элементов, больших среднего арифметического:'); for i:=1 to n do if a[i]>sr then write(i:3); writeln; end.
На заметку: Мощность алфавита — количество символов в нём.
По условию известно, что в каждой строке сообщения (их всего три) по 256 символов. Узнаем общее количество символов, умножив 3 на 256:
1) 3 * 256 = 768 — символов во всём сообщении.
Также нам известен общий информационный объём всего сообщения, равный 0,25 килобайта. Чтобы счёт в будущем был более удобным, можно перевести килобайты в биты, умножив 0,25 на 1024 (1 килобайт равен 1024 байтам) на 8 (1 байт равен 8 битам):
2) 0,25 * 1024 * 8 = 2048 — вес всего сообщения в битах.
Далее, чтобы узнать вес одного символа, достаточно просто поделить общий вес сообщения на количество символов, то есть 2048 на 768:
3) 2048 : 768 = 2,(6) ≈ 3 — вес одного символа.
В последнем шаге нужно воспользоваться формулой количества возможных событий и количества информации (N = 2^i, где N — количество возможных событий (в данном случае — мощность алфавита), а i — вес одного символа).
var a:array[1..n] of integer;
i,s:integer; sr:real;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
sr:=s/n;
writeln('Среднее арифметическое = ',sr:6:2);
writeln('Номера элементов, больших среднего арифметического:');
for i:=1 to n do
if a[i]>sr then write(i:3);
writeln;
end.
Пример:
Массив:
9 19 14 8 7 10 5 10 6 14 15 2 11 17 13
Среднее арифметическое = 10.67
Номера элементов, больших среднего арифметического:
2 3 10 11 13 14 15
Мощность алфавита = 8.
Объяснение:
На заметку: Мощность алфавита — количество символов в нём.
По условию известно, что в каждой строке сообщения (их всего три) по 256 символов. Узнаем общее количество символов, умножив 3 на 256:
1) 3 * 256 = 768 — символов во всём сообщении.
Также нам известен общий информационный объём всего сообщения, равный 0,25 килобайта. Чтобы счёт в будущем был более удобным, можно перевести килобайты в биты, умножив 0,25 на 1024 (1 килобайт равен 1024 байтам) на 8 (1 байт равен 8 битам):
2) 0,25 * 1024 * 8 = 2048 — вес всего сообщения в битах.
Далее, чтобы узнать вес одного символа, достаточно просто поделить общий вес сообщения на количество символов, то есть 2048 на 768:
3) 2048 : 768 = 2,(6) ≈ 3 — вес одного символа.
В последнем шаге нужно воспользоваться формулой количества возможных событий и количества информации (N = 2^i, где N — количество возможных событий (в данном случае — мощность алфавита), а i — вес одного символа).
4) N = 2^3 = 8.