Progra gt; var b:array[1..10000] of integer; n,i,p:linteger; begin read(n); p:=1; for i:=1 to n do begin read(b[i]); if(b[i]>0)and(b[i] mod 2=0)then p:=p*b[i]; end; writeln(p); end.
Randomize() Dim k As Integer Dim i As Integer Dim Summ as Long Summ=1 i = InputBox("Введите N") ReDim A(i) For k = 0 To i B(k) = Rnd() * -1000 + 500 If B(k) > 0 and B(k) mod 2 =0 then Summ=Summ*B(k) Next MsgBox(Summ)
1) F=Av(¬A&B) По закону дистрибутивности раскроем скобки (Av¬A)&(AvB) Av¬A = 1, значит остаётся AvB
2) F =A&(¬AvB) По тому же закону раскрываем скобки (A&¬A)v(A&B) A&¬A = 0, значит остаётся A&B
3. (AvB)&(¬BvA)&(¬CvB) По закону склеивания (AvB)&(¬BvA) = A , получается, что выражение принимает вид A&(¬CvB) Можно раскрыть скобки, получим A&¬C v A&B
4) F =(1v(AvB))v((AC)&1) Скобка (1v(AvB)) = 1, так как 1 v ЧТОУГОДНО = 1 Получаем выражение 1v((AC)&1) = 1, так как 1 v ЧТОУГОДНО = 1 ответ 1
Var mas:array[1..1000, 1..1000] of integer; N,M,i,j,k:integer;
Begin Writeln('Введите размер матрицы N*M'); Write('N = '); readln(N); Write('M = '); readln(M);
if (M>1000) or (N>1000) or (M<1) or (N<1) then Writeln('Ошибка, указанные значения выходят за пределы матрицы') else Begin Writeln('Введите элементы матрицы');
k:=0; for i:=1 to N do for j:=1 to M do Begin readln(mas[i,j]); if (mas[i,j] mod 2 = 0) then k:=k+1; end;
Writeln(); Writeln('Исходная матрица');
for i:=1 to N do Begin for j:=1 to M do Begin Write(mas[i,j], ' ') end; Writeln(); end;
Writeln(); Writeln('Количество четных элементов = ',k); end;
var b:array[1..10000] of integer;
n,i,p:linteger;
begin
read(n);
p:=1;
for i:=1 to n do
begin
read(b[i]);
if(b[i]>0)and(b[i] mod 2=0)then p:=p*b[i];
end;
writeln(p);
end.