88бешек съел какойто осёл
№3
j=3
k=3
если j больше чем k то j = k - 2, т.е. j = 1
иначе k = k - 1, т.е. k = 2
===== PascalABC.NET =====
begin
ReadInteger.ToString.Select(c -> c.ToDigit ** 3).Sum.Println
end.
Var ar:array[1..10] of integer;
k,i,m:integer;
begin;
randomize;
k:=1;writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(0,15);
if odd(i)=false then k:=k*ar[i];
write(ar[i]:4);
end;
writeln;
writeln('Result:',k);
if odd(k) then writeln('Yes') else writeln('No');
end.
<span>
//Мала вероятность того, что вернёт Yes, поэтому прикрутил Result
Вывод с 300-400 запуска:
Array:
9 15 8 15 5 3 0 15 3 9
Result:91125
Yes<span>
</span></span>
№4
а) 1111001₂= 1×2⁰+1×2³+ 1×2⁴+ 1×2⁵+1 ×2⁶ = 1+8+16+32+64=121₁₀
б) 1000110₂=1 ×2¹+1 ×2²+1× 2⁶=2+4+64=70
№3
136₁₀= 10001000₂
136:2=68 остаток 0
68:2= 34 остаток 0
34:2= 17 остаток 0
17:2= 8 остаток 1
8:2=4 остаток 0
4:2=2 остаток 0
2:2=1 остаток 0
1:2=0 остаток 1 (остатки записываются в ответ снизу в верх)
254₁₀= 11111110₂
254:2= 127 остаток 0
127:2=63 остаток 1
63:2=31 остаток 1
31:2= 15 остаток 1
15:2=7 остаток 1
7:2=3 остаток 1
3:2 =1 остаток 1
1:2=0 остаток 1