1*2^4+1*2^2+1*2^0 = 10101(2)
1*2^4+1*2^2+1*2^0 = 16+4+1 = 21(10)
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
var n:=ReadInteger();
var a:=ArrRandom(n,-10,10);
a.Println;
for var i:=0 to n-1 do if a[i]mod 2<>0 then print(a[i]);
end.
var a:array[1..10] of integer;
s,s1:longint;
i,n:integer;
begin
n:=20;
s:=0; s1:=0;
for i:=1 to n do
begin
writeln('Vvedite element ',i);
read(a[i]);
end;
for i:=1 to n do
begin
write(a[i]:4);
end;
writeln;
for i:=1 to n do
begin
begin
if (a[i] mod 2=0) then s:=s+a[i];
end;
begin
if (a[i] mod 5=0) then s1:=s1+a[i];
end;
end;
writeln('Summa kratnix 2 = ',s);
writeln('Summa kratnix 5 = ',s1);
end.
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var aw:=ReadlnString('Введите строку:').ToWords;
var w:=ReadlnString('Введите искомое слово:');
var i:=aw.FindIndex(e->e=w);
var s:string;
if i>-1 then
if i=aw.Count-1 then s:=aw[:i].JoinIntoString
else s:=(aw[:i]+aw[i+1:]).JoinIntoString
else s:=aw.JoinIntoString;
s.Println
end.
<u>Замечание:</u>
Учитываются именно <u>слова</u>, а не контекст, т.е. слово должно отделяться от остальной части строки пробелом, либо признаками начала/конца строки.
Всего можно выбрать 32 числа, значит вероятность выбора одного числа равна
![P= \frac{1}{32}](https://tex.z-dn.net/?f=P%3D+%5Cfrac%7B1%7D%7B32%7D+)
известно, что
![2^{i} = \frac{1}{P}](https://tex.z-dn.net/?f=+2%5E%7Bi%7D+%3D+%5Cfrac%7B1%7D%7BP%7D+)
следовательно i равно 5 байтам или 5*8=40 бит