===== PascalABC.NET =====
-1-
begin
var a := new integer[9];
for var i := 0 to 2 do
begin
a[3 * i] := ReadInteger('Введи элемент ' + (3 * i + 1).ToString);
a[3 * i + 1] := 6 * i + 4;
a[3 * i + 2] := Random(0, 9)
end;
a.Println
end.
-2-
begin
var a := ArrRandom(15, -99, 99);
a.Println;
var b := a.Select(p -> p * p).ToArray;
b.Println;
Println('Разность', a.Max - b.Min)
end.
Каждое уравнение имеет вид
(A | B) & (~A | ~B) = 1
Отсюда следует, что
(A | B) = 1 и (~A | ~B) = 1
Из первой скобки следует, что по крайней мере одно из высказываний А, В истинно. Из второй - что по крайней мере одно из высказываний ~A, ~B истинно. Поэтому ровно одно из высказываний A, B истинно, а другое ложно.
Пусть мы знаем x1, x2, x3, x5, x7, x9. Тогда остальные переменные определены однозначно: если x1=x2, то x4=~x3, x6=x5, x8=~x7, x10=x9; иначе всё наоборот.
Эти 6 переменных независимы, поэтому общее количество решений = количеству всевозможных наборов x1, x2, x3, x5, x7, x9 = 2^6 = 64
привет. это похоже на код из ардуино. Как считать числа из textBox и записать их в массив если они разделены пробелом?
К примеру если в textBox: 45 6 7, то в массиве будет mas[0]=45; mas[1]=6;
mas[2]=7
пользуйся
If - если
Then - то
Else - иначе
Например:
C:= A - B;
(Если С больше нуля то)
If C > 0 then begin
(Вывод о том что)
Writeln(число положительное);
...
(Иначе оно)
End esle
(Может быть только отрицательным)
Writeln(число отрицательное);
...
Это же можно проделать с двумя if(если)
If C > 0 then begin
Writeln(число положительное);
...
(Если С меньше нуля)
If C < 0 then begin
Writeln(число отрицательное);
...