Const m=1000;
var
a:array[1..m] of integer;
n,i,p,k,j:integer;
begin
write('n = '); readln(n);
i:=0; p:=1;
while p<n do
begin
k:=0;
for j:=2 to round(sqrt(p)) do
if p mod j = 0 then k:=k+1;
if k=0 then begin i:=i+1; a[i]:=p; end;
p:=p+1;
end;
for j:=1 to i do write(a[j],' ');
writeln;
end.
Пример:
n = 100
1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97
А8=341=3*8^2+4*8^1+1*8^0=225
A6=341=3*6^2+4*6^1+1*6^0=133
A16=341=3*16^2+4*16^1+1*16^0=
A5=34,1=3*5^1+4*5^0+1*5^-1=
Последние две строчки сам посчитай.
1. Переводим число 277 в двоичную систему счисления.
277₁₀ = 100010101₂
2. Положительное число дополняется слева нулями до 16 разрядов
0000 0001 0001 0101
3. Отрицательное число в два шага переводится в дополнительный код.
а) В первом слева разряде пишется единица, в прочих единицы заменяются нулями, а нули - единицами:
1111 1110 1110 1010
б) К полученному числу прибавляется единица:
1111 1110 1110 1011
Var n,a,b,c,d:integer;
begin read(n);
a:=n div 1000;
b:=n div 100 mod 10;
c:=n div 10 mod 10;
d:=n mod 10;
n:=1000*a+100*c+10*b+d;
writeln(n);
<span>end.</span>
Ребенок знает 32 букв алфавита. Если он за минуту говорит фразу, содержащую <span>30 букв, определите скорость передачи информации ребенка в бит/с.
</span>32=2^6 ⇒ на каждый символ 6 бит
30*6=180 бит - объем фразы ребенка
1 минута =30 сек
180/30=6 бит/сек