4^4 =256 (мало, не хватает до 300)
4^5 =1024 -----> 5 лампочек
===== PascalABC.NET =====
begin
ReadSeqInteger('Введите 12 чисел', 12)
.Count(p -> p.InRange(-9, 9)).Println
end.
124, 126, 142, 146, 162, 164, 214, 216, 241, 246, 261, 264, 412, 416, 421, 426, 462, 464, 612, 614, 621, 624, 641, 642. 24 числа. Вроде так. 19 чётных, 5 нечётных.
0.5*1024=512 байт
512*8=4096 бит
4096/128=32
в 32 раза больше
Var
n,k,sum:integer; s,s1:string;
begin
write('n = '); readln(n);
s:='';
sum:=0;
while (n>0)and(n mod 2 = 0) do
begin
k:=n mod 10;
str(k,s1);
s:=s1+'+'+s;
sum:=sum+k;
n:=n div 10;
end;
if s<>'' then s[length(s)]:='=';
writeln(s,sum);
end.
Пример:
n = 1784
8+4=12