Рекомендуется использовать формулу Мальтуса, изменения числа рыб 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>
Короче, смотри, в алфавите 32 буквы т.е. log(по основанию2) числа 32 будет равно 5, значит на одну букву алфавита приходится 5 бит, следователь ВАСЯ 4 буквы=> 5*4=20 бит
===== PascalABC.NET =====
begin
var (a, b) := ReadInteger2;
Swap(a,b);
Print(a, b)
end.
Она на QBasic
...........................
program summa;
var
i, n:integer;
s, k:real;
begin
writeln('введите число n=');
read(n);
s:= 0;
k := 0;
for i := 1 to n do
begin
k:= k + sin(i);
s:= s + 1/k;
end;
writeln('Сумма S= ',s:0:2);
readln;
end.