3 задание ответы:1,3,4,5
4 задание карандаш и граффити
78^10 → 1001110^2
78^10 → 116^8
78^10 → 1032^4
58^10 → 111010^2 322^4 72^8
35^10 → 100011^2 203^4 43^8
321^4 →57^10
765^8 →501^10
10101110^2 →174^10 256^8
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(50,-50,50); a.Println;
Writeln('k=',a.Where(x->x.IsEven and (x mod 3<>0)).Count)
end.
<u>Пример</u>
46 39 16 14 -16 -35 -34 -38 5 16 -13 -19 48 18 -33 -37 3 -41 46 38 15 21 50 50 21 -29 -34 4 -31 -18 31 -2 26 45 -8 1 13 29 -35 -46 25 -38 -13 23 14 -17 -30 35 9 -34
k=20