10101010(2) =170(10)
Решение:
Приведем 10101010 из системы счисления 2 в десятичную систему счисления
101010102=1·2(7) +0·2(6) +1·2(5) +0·2(4) +1·2(3) +0·2(2) +1·2(1) +0·2(0) =170(10)
252(8) =170(10)
Приведем 252 из системы счисления 8 в десятичную систему счисления
252(8)=2·8(2) +5·8(1) +2·8(0) =170(10)
7(16) =7(10)
Приведем 7 из системы счисления 16 в десятичную систему счисления
7(16)=7·16(0) =7(10)
170(10) - 170(10) + 7(10) = 7(10)
Рекомендуется использовать формулу Мальтуса, изменения числа рыб N= k*N-q*N*N
Если за начальное количество рыб принять N0,то через год рыб в пруду будет
N1=N0+K*N0-q*N0*N0,через два года N2=N1+K*N1-q*N1*N1 ...
В таблице Excel в ячейку A1 введите значение к=1,в ячейку B1 значение q=0,01,в ячейку С1 значение N0=100, в ячейку В2 формулу =C1+A1*C1-B1*C1*C1 (это количество рыб за 1 год) , в ячейку В3 формулу
=B2+$A$1*B2-$B$1*B2*B2(количество рыб за 2 год) , скопируйте формулу с ячейки В3 до ячейки В11.
<span>Изменяйте значение ячейки А1, например, поставьте значение 1,908, и получите 2000 рыб через 10 лет.</span>
1.4)
2.5)
3.5
4.3
5.г
6.5
7.1
8.2
9.1
10.2
11.1
12.1
13.2
14.10байт
дальше я не знаю
1)
Var i : Byte;
Begin
For i:=Ord('a') to Ord('z') do Writeln(Chr(i),' ',i);
end.
2)
Var i : Byte;
Begin
i:=Ord('a');
While i<=Ord('z') do
Begin
Writeln(Chr(i),' ',i);
Inc(i);
end;
end.
3)
Var i : Byte;
Begin
i:=Ord('a');
Repeat
Writeln(Chr(i),' ',i);
Inc(i);
Until i>Ord('z');
end.
