Е<span>сли в алфавите 64 символа, то каждый знак кодируется 6 битами, потому что 64 = 2^6. </span>
<span>20 символов по 6 бит содержат 20*6 = 120 бит = 120/8 = 15 байт.</span>
Сделать бутерброд :
1)взять батон
2)нарезать батон
3)взять сыр
4)нарезать сыр
5)взять колбасу
6)нарезать колбасу
Function power (a:real; n:longint):real;
var
i:longint;
p:real;
begin
if n=0 then power:=0
else begin
p:=a;
for i:=2 to n do p:=p*a;
power:=p
end
end;
var
a:real;
n:integer;
begin
Write('Введите основание и показатель степени: ');
Read(a,n);
Writeln('Результат: ',power(a,n))
end.
<u>Пример</u>
Введите основание и показатель степени: 13.64 6
Результат: 6440005.25769131
Начнем с того, что в базе данных физический порядок следования записей при индексировании не меняется. Создается индексный файл. А вот при выборке данных при активном индексном файле данные будут выбираться в порядке возрастания индекса, что по результатам равнозначно тому, как если бы записи действительно были упорядочены соответствующим образом.
Теперь по задаче. При индексировании будут получены следующие значения ключей: <span><span><span>24
</span><span>
18.5
</span><span>
22
</span><span>
15.5
</span><span>
20
</span></span></span><span />и в соответствии с ними будут выбраны записи в порядке <em><u>4-2-5-3-1</u></em>, т.е. <em><u>правильный ответ В)</u></em>
Если считать, что больные продолжают ходить в школу, заражая каждый день людей, и при этом они не выздоравливают через 7 дней, то так:
var vsego, boleet,den:integer;
begin
writeln('Сколько всего человек: ');
Readln(vsego);
boleet:=1;
while boleet<vsego do begin
den:=den+1;
boleet:=boleet*4+boleet;
writeln('День ',den, ' - заразились и болеют уже ', boleet, ' человек');
end;
writeln('Всего учеников: ', vsego, ', Через ',den, ' дней заболеют ', boleet, ' учеников (если бы их было столько), но т.к. их столько нет, да и школу бы всё равно на карантин закрыли, то будем считать, что заболеют все ', vsego);
end.