Сообщение занимает 10 страниц по 40 строк, в каждой строке записано по 60 символов. Информационный объем всего сообщения 3000 байтов. Сколько символов в алфавите
Строчка "program Умножение;" спорная т.к. некоторые компиляторы поддерживают кириллицу, например PascalABC, но лучше использовать английские буквы.
"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.
1) равносильно: (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
"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.
(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 < ответ