Выполните алгоритм построения таблиц истинности и напишите в ответ количество строк (без учета шапки) и столбцов в таблице истинности для следущющего выражения: А & (А V В)
Program abc;Const n=3; m=3;Var a:array[1..n,1..m] of integer; b,y,i,j,sum:integer; srd:real; Begin Writeln('Введите числа массива: '); For i:=1 to n do For j:=1 to m do Begin Write('a[',i,',',j,']= '); Readln(a[i,j]); if a[i,j]>0 then begin sum:=sum+a[i,j]; inc(b); end else If a[i,j]<0 then Inc(y); End; If sum>0 then begin srd:=sum/1 b; Writeln('Среднее =',srd); end else Writeln('Нет положительных членов массива'); If y>0 then begin Writeln('Количество отрицательных элементов =',y); end else Writeln('Нет отрицательных членов массива');End.
1) Перевести 2-ное число в 16-ное очень легко - нужно разбить число на группы по 4 цифры и перевести каждую по такой таблице: 0000=0; 0001=1; 0010=2; 0011=3; 0100=4; 0101=5; 0110=6; 0111=7; 1000=8; 1001=9; 1010=A; 1011=B; 1100=C; 1101=D; 1110=E; 1111=F. Переводим: 101011 = 10.1011 = 0010.1011 = 2B
2) A8 = 10*16 + 8 = 168; AB = 10*16 + 11 = 171; B5 = 11*16 + 5 = 181; CA = 12*16 + 10 = 202. 8-ное число 265 = 2*8^2 + 6*8 + 5 = 2*64 + 48 + 5 = 128+48+5 = 181 Больше, чем 265(8) = 181(10) только число CA(16) = 202(10)
