Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
паскаль, одномерный массив
var a: array [1..6] of integer; i, max: integer;
begin
for i: =1 to 6 do read(a[i]);
max: =a[1];
for i: =1 to 6 do
if a[i]> max then max: =a[i];
writeln(max); 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
n,s,p: integer;
read(n);
p: =n mod 10;
if p mod 2=0 then writeln ('оканчивается на четную цифру')
else writeln ('оканчивается на четную цифру');
while n> 0 do
n: =n div 10;
s: =s+1;
end;
writeln ('количество цифр в числе', s);
end.
мало данных для главное - размер пробоины и размер листа
Популярные вопросы