var i,n,p:integer;
a:array[1..10000] of integer;
begin
p:=1;
readln(n); {Вводится количество элементов массива}
for i:=1 to n do begin readln(a[i]); p:=p*a[i]; end; {Вводится каждый элемент массива и умножается на произведение ранее введённых}
writeln(exp(ln(p)/n)); {Вывод среднего арифметического - корень степени n из произведения всех элементов массива}
end.
1)
150 байт = 150*8 бит = 1200 бит
Количество информации на один символ = 1200/400 = 3 бита
Количество символов в алфавите = 2^3 = 8
2)
Количество символов = 80*55 = 4400
3300 байт = 3300*8 бит
Количество информации на один символ = 3300*8/4400 = 6 бит
<span>Количество символов в алфавите = 2^6 = 64
</span>
3)
Количество символов = 3*80*33 = 7920
6930 байт = 6930*8 бит
Количество информации на один символ = 6930*8/7920 = 7 бит
<span>Количество символов в алфавите = 2^7 = 128</span>
привел программу к более красивому и правильному виду :)
var s : integer := 2;
begin
for var k := 1 to 3 do s *= s;
writeln(s);
end.
тут трижды S умножается сама на себя а затем результат сам на себя. Получается следующая математическая формула:
на паскале это можно записать как:
writeln(sqr(sqr(sqr(s))));
открой любой файл ворда, и внизу на панели есть такая штука где показывает количество слов и страницы, нажми туда правой кнопкой мыши и выбери "символы с пробелами". Будет как на фото в прикрепленных. А количество информации определишь по формуле, либо напиши в комменты под ответом свое количество знаков, я скину сколько это информации
#include <iostream>using namespace std;
int main(){ int first, second; cout << "Enter f, s"; cin >> first >> second; cout << "sum: " << (first + second) << "\n\n"; system("pause");}
Поставь пожалуйста лучший ответ