Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var s : string;
а : integer;
begin
writeln ('введите слово-');
readln (s);
а: = length(s)
writeln ('длина слова=', a);
readln
end.
1) количество возможных событий равно двум. значит n=2, подставляем в формулу n=2^i, i=1 бит.
2) находим значение информационной емкости одного символа. n=2^i, подставляя значение в формулу, получаем n=64, значит, i=6 бит-информационная емкость 1 символа, значит 5*6=30 бит.
3) i=8 бит=1 байту
(20*1024)/(32*64*1)= 10
var a,max: real;
n,i: integer;
max: =0;
readln(n);
for i: =1 to n do begin
readln(a);
if a> max then max: =a;
end;
writeln(max);
393сf - 8с.с.
32333301033 - 4с.с.
вроде правильно..
Популярные вопросы