1) 4096:1024=4кб
4)8×60×30×100=144 000:28 800=5с
5)51 200:16=3200×10=32000 символа
3)512×8=4096×2=8192:1024=8кб
Думаю, что эта программа подойдёт:
var count,i,n,min,book: Integer;
a: array[0..100] of Integer;
begin
min:=1000;
writeln('Введите кол-во учебников');
readln(count);
dec(count);
for i:=0 to count do
begin
writeln('Введите кол-во заданий в ',i+1,' учебнике');
readln(n);
a[i]:=n;
end;
for i:=0 to count do
begin
if a[i]<min then
begin
min:=a[i];
book:=i+1;
end;
end;
writeln('Номер учебника, в котором находится наименьшее кол-во заданий: ',book);
end.
Для решения задачи используется формула Хартли: N = 2^i или i = log(2)N
Количество целых чисел в диапазоне [5..20] - 16 (20-5+1=16).
Количество информации об угаданном числе = log(2)16 = 4 бита (2^4=16).
C самого детства-я считал, что в вычислительных машинах таилось нечто особенное, непонятное многим людям. В возрасте 6 лет я точно определился-компьютеры-моя любовь. Достаточно много времени прошло с того момента, и я уже во многом разбираюсь, но до сих пор точно не определился, на какую специализацию пойти в будущем, ведь их так много! Информационная безопастность, прикладная информатика, программирование автоматизированных систем, web программирование, специалицазии на определенных языках программирования...-у меня разбегались глаза. Впрочем я и сегодня, занимаясь письмом этого сочинения до сих пор думаю о своем "Великом выборе".
Однако одно я могу заявить точно, с настоящей гордостью-"Я люблю компьютеры и хочу связать с ними свою жизнь!"
Function func1(a As Double) As Double
Dim i As Integer, b As Double
i = 1 - Sgn((Abs(a) - a) / 2)
b = Sqr(a * i)
a = a * 2 + i * (b - 2 * a)
func1 = a
End Function
