program number7;
uses crt;
var A: integer;
begin
clrscr;
A:=(116 div 10)*(116 mod 15) div 2 +116 mod 6;
writeln('a=',A);
end.
a=62, div 10 - делит число на 10 и выделяет целую часть, mod 15 - делит число на 15 и выделяет остаток от деления , div 2 - делит число на 2 и выделяет целую часть, mod 6 - делит число на 6 и выделяет остаток
Число бит информации определяется как log 2 (N/N') где N - число возможных вариантов ДО получения информации, а N' - после.
Т.е. нам надо посчитать сколько существует комбинаций из 12 подбрасываний всего (2^12 = 4096) и сколько таких, где 5 орлов идут подряд (таких очевидно 8 - 111110000000, 011111000000, 001111100000, 000111110000, 000011111000, 000001111100, 000000111110, 000000011111).
Имеем log 2 (4096 / 8) = log 2 (2^12 / 2^3) = log 2 (2^9) = 9 бит
В восьмеричную
2005 : 8 = 250, остаток 5
250 : 8 = 31, остаток 2
31 : 8 = 3, остаток 7
3 : 8 = 0, остаток 3
Выписываем остатки в обратном порядке: 3725
В пятеричную
2005 : 5 = 401, остаток 0
401 : 5 = 80, остаток 1
80 : 5 = 16, остаток 0
16 : 5 = 3, остаток 1
3 : 5 = 0, остаток 3
Выписываем остатки в обратном порядке: 31010
В двоичную
2005 : 2 = 1002, остаток 1
1002 : 2 = 501, остаток 0
501 : 2 = 250, остаток 1
250 : 2 = 125, остаток 0
125 : 2 = 62, остаток 1
62 : 2 = 31, остаток 0
31 : 2 = 15, остаток 1
15 : 2 = 7, остаток 1
7 : 2 = 3, остаток 1
3 : 2 = 1, остаток 1
1 : 2 = 0, остаток 1
<span>Выписываем остатки в обратном порядке: 11111010101</span>
if (условие) then
begin
end; //условный оператор
_____________________
for i:=a to b do
begin
end; //Цикл с параметром
_____________________
while (условие) do
begin
end; //цикл с предусловием
_____________________
repeat
until (условие) //цикл с постусловием
<span>12 л ловят 12 к за 12 мин
Значит 1 л ловит 1 к за 12 мин
</span>Значит 1 л ловит 2 к за 24 мин
Значит 13 л ловит 26 к за 24 мин
<span>Значит 12 л ловит 24 к за 24 мин</span>
Вообщем получается что достаточно 13 лягушек, 12 может быть маловато, не успеют
