Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
Ответ:
б) (A + B) * (неA + неB)= A * неA + A * неB + B * неA + B * неB= 0 + A * неB + B * неA + 0= A * неB + B * неA
и) A*(неB*неC + B*C) + A*(B*неC + неB*C)= A*(неB*неC + B*C + B*неC + неB*C)=A*((неB*неC + неB*C) + (B*C + B*неC) )=A*(неB*(неC + C) + B*(C + неC) )=A*(неB*1 + B*1)=A*1=A
Var
a, b, t: integer;
begin
readln(a, b);
if b > a then begin
t := a;
a := b;
b := t;
end;
writeln(a mod b = 0);
end.