Проверочное устройство (задание M-1) проходиш сковозь задание искатель и если за пикал то он не зделал дз
Program z1;
var A:array[1..30] of integer;
i,k:integer;
begin
k:=1;
for i:=1 to 30 do begin
write('a[',i,']=');
read(a[i]);
end;
for i:=1 to 30 do
if a[i] mod 2=0 then
k:=a[i]*k;
writeln(k);
end.
Пишу на QBasic
CLS
INPUT N
C=1
FOR I = 1 TO N
C=C*I
NEXT I
PRINT C
Ну раз значения всего 2, то 2 ^ 5 = 32 последовательности.