Var
ar:array[1..2000] of integer;
n,i,count:integer;
begin
readln(n);
for i:=1 to n do begin
read(ar[i]);
while ((ar[i]>0) and ((ar[i] mod 10)<>4)) do ar[i]:=ar[i] div 10;
if ar[i] mod 10 = 4 then inc(count);
end;
writeln(count);
end.
А,г,б,в)))))))))))))))))))
=CЧЁТЕСЛИ() и в условии пишешь нужно условие.
Лампочек должно быть 4, поскольку 2⁴ = 16
Возможные сигналы (0 - лампочка выключена, 1 - включена):
0 0 0 0
0 0 0 1
0 0 1 0
0 0 1 1
0 1 0 0
0 1 0 1
0 1 1 0
0 1 1 1
1 0 0 0 и так далее...