Сделать в питоне задачи: 1) По заданным значениям размера двумерного массива, задать
значения элементов случайным образом. Вывести элементы, значение
которых кратно 3, не больших числа 8.
2) В заданной действительной квадратной матрице порядка n*n найти
сумму элементов строки, в которой расположен элемент с наименьшим
значением.
3) Найти сумму арифметической прогрессии из 13 элементов, зная
значение первого элемента и разность.
(x&29 =0) +(x&9≠0) + x&A ≠0 =1
рассмотрим, когда сумма двух первые два слагаемых равна 0,
а третье слагаемое=1
29=11101 первое слагаемое =0 при ¬29 = 00010 +
9=1001 >(=0) при 9 = 01001
..011
100 < A=100 =4
2) равносильно:
(x&13=0) + (x&39 =0) + (x&A≠0)*(x&13≠0) = 1
рассмотрим, когда сумма двух первых слагаемых =0,
а третье (произведение) =1
13 = 1101 обратное --> 0010
39= 100111 ---> 011000
10
поразрядное сложение
11010 т.е. дают 0 двум первым сл.
(x&A≠0) *x&13≠0) =1 ?
13 =1101 --> 0010
A= ---> 1
(из первого рассуждения 11010+
1
0010
... 0111 ---> A=1000 =8
3)равносильно:
(x&13=0) *(x&A=0) +x&13≠0+(x&A≠0)*(x&39=0) =1
рассмотрим, когда первое произведение =0:
13 =1101 ---> обратное--> 0010---> A=2 =10(в 2с/с)
(X&13≠0) можно и не учитывать (пока)
рассмотрим (x&A≠0) * (x&39=0) =1
это будет при А=011000, обратном (39=100111)
складываем оба А:
011000
10
11010 = 2^4+2^3+2 =28 < ответ
"var A, B, C: boolean;" boolean - это логический тип переменных True False, либо 0 1, для других чисел не подходит. Я остановился на типе "real", чтобы можно было вводить не только целые числа, но и дробные, например 2,5
После каждого оператора необходимо ставить ";", кроме того, что перед "end" там ставить не обязательно.
В паскале "=" используется как оператор сравнения, а оператор присваивания выглядит так: ":=", поэтому исправим тут ошибку
"C = A * B"
Текст в "writeln()" пишется в одинарных кавычках, исправляем ошибку "writeln (Произведение введенных Вами чисел равно , C)"
И так вот готовая исправленная программа
Program multi;
Var A,B,C:real;
Begin
Read(A,B);
C:=A*B;
Writeln('Произведение введенных Вами чисел равно ',C)
End.