Закон дистрибутивности, он же распределительный.
Закон о раскрытии скобок.
V - сложение
& - умножение
A V (B&C) = A + (B*C) = (A + B) * (A + C) = (A ˅ B) ˄ (A ˅ C)
Ответ 2.
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
var b := a.Where(p -> p > 0).Sorted.ToArray;
if b.Length > 0 then
begin
var j := 0;
for var i := 0 to a.High do
if a[i] > 0 then begin
a[i] := b[j];
j += 1
end
else
a[i] := 0
end;
a.Println
end.
Var
a,b,p,i: integer;
begin
write ('Введите 2 числа: ');
readln (a,b);
p:=1;
for i:=a to b do
if (i*6) mod 10 =2
then p:=p*i;
writeln (p);
end.
--------------Результат---------------
Введите 2 числа: 1 10
14
1-ый способ: 1 взрослый и 1 мальчик перебираются на другой берег реки, потом взрослый возвращается назад, и за тем он и второй мальчик перебираются на другой берег реки, потом один из мальчиков возвращается за вторым взрослым.
2-ой способ: Или два мальчика сидят на плоту, а двое взрослых держатся за плот и перебираются на другой берег реки.