Дано: A∧D¯¯¯.
Заполни таблицу истинности.

A
D
¯¯¯¯¯¯¯¯¯¯
A∧D¯¯¯
0
0
0
1
1
0
1
1

один сивол занимает 1,5 кбайт / 3072 = 1,5 * 1024 байт / 3072 = 1,5 байт / 3 = 0, 5 байт = 4 битмощность алфавита (количество символов в алфавите) находится по формуле  , где n - мощность алфавита, i - количество бит на один символ.ответ:   символов в алфавите

program xxx;   var a,b, c : integer; begin

  writeln('введите 3 числа-');

  read(a,b,c);   if a> =0 then a: = sqr(a);

  if b> =0 then b: = sqr(b);

  if c> =0 then c: = sqr(c);

  writeln('ответ: ');

  write(a, b, c);

  readlnend.

program p_1; var i, n : integer; a, s : real; b : array [1..1000] of real; begin writeln('введите число а'); readln(a); writeln('введите количество значений массива n'); readln(n); write('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if b[i] > a then s: =s+b[i]; writeln('сумма значений =', s); end.

var

  i: integer;

  a: array[1..16]of integer;

begin

  for i: =1 to 16 do

begin

  a[i]: =random(40)-20;

  if a[i] mod 3=0 then write(i,' ');

end;

writeln;

end.