Спортивное табло состоит из лампочек, которые могут находиться в 2-ух состояниях вкл-выкл. сколько лампочек необходимо для 56 свет. комбинаций?

2^6 = 64 - значит 6 лампочек

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin   var a: integer;   var (ke,ko): =(0,0);   for var i: =0 to 9 do begin       write('введите число ',i+1,': '); read(a);       if a.iseven then ke+=1 else ko+=1       end;   writeln('нечетных чисел ',ko,', четных ',ke) end. пример введите число 1: 45 введите число 2: -25 введите число 3: 8 введите число 4: 0 введите число 5: 16 введите число 6: 37 введите число 7: 111 введите число 8: -5345 введите число 9: 23 введите число 10: 15 нечетных чисел 7, четных 3

Var q,w,e,r,t,y,u,i,o,p,l,s,a: integer; begin writeln('введите 10 целых чисел'); readln(q,w,e,r,t,y,u,i,o,p); s: =0; a: =0; for l: =0 to 9 do begin if l=0 then if q mod 2=0 then s: =s+1 else a: =a+1; if l=1 then if w mod 2=0 then s: =s+1 else a: =a+1; if l=2 then if e mod 2=0 then s: =s+1 else a: =a+1; if l=3 then if r mod 2=0 then s: =s+1 else a: =a+1; if l=4 then if t mod 2=0 then s: =s+1 else a: =a+1; if l=5 then if y mod 2=0 then s: =s+1 else a: =a+1; if l=6 then if u mod 2=0 then s: =s+1 else a: =a+1; if l=7 then if i mod 2=0 then s: =s+1 else a: =a+1; if l=8 then if o mod 2=0 then s: =s+1 else a: =a+1; if l=9 then if p mod 2=0 then s: =s+1 else a: =a+1; end; writeln('чётных: ',s); writeln('нечётных: ',a); end.