Задание 3.7
//Pascal
var i,n,k:integer;
begin
n:=24;
k:=1;
//количество амеб через
//цикл for
for i:=1 to n div 3 do begin
k:=k*2;
writeln('Время :',i*3,' Амеб :',k);
end;
writeln;
//количество амеб через
//цикл while
i:=0;
k:=1;
while i<n do begin
i:=i+3;
k:=k*2;
writeln('Время :',i,' Амеб :',k);
end;
writeln;
//количество амеб через
//цикл Repeat
i:=0;
k:=1;
repeat
i:=i+3;
k:=k*2;
writeln('Время :',i,' Амеб :',k);
until i=n
end.
Задание 3.8
var
k,b,t:integer;
begin
for b:=1 to 10 do
for k:=1 to 20 do
for t:=1 to 200 do
if (b*10+k*5+t*0.5=100)and(b+k+t=100)then writeln('Быков: ',b,' Коров:',k,' Телят:',t);
end.
<span>Сообщения, осведомляющие о положении дел, о состоянии чего-н.</span>
Что требуется сказать? что он значит? этот двоичный код?
задача1
запишем условие: страницы=1024, строки=64, символы=64, i=8 бит
решение: вычислим общее кол-во символов в тексте
К=1024*64*64=4194304
вычислим информационный объем текста в битах
I=K*i=4194304*8=33554432 бит
выразим этот объем в Мб
I=33554432/8/1024/1024=4 Мб это и есть ответ
задача2
запишем условие: страниц=256, строки=64, символы=64, i=16бит
решение: вычислим общее количество символов в тексте
К=256*64*64=1048576
вычислим информационный объем текста
I=K*i=1048576*16 бит=16777216 бит
выразим этот объем в Мб
I=16777216/8/1024/1024=2 Мб это и есть ответ