Составьте таблицы истинности для следующих логических выражений:

Const
  Blanks = [' '];

function PosBlank(s: string; pn, pk: integer): integer;
{
  Ищет в строке s в позициях от pn до pk пробельный символ.
  Возвращает его позицию в строке или ноль, если таковой символ не найден.
  Использует подмножество пробельных символов Blanks, что позволяет определять
  произвольный набор пробельных символов (например, табуляцию и т.д.)
}
var
  p: integer;
  flag: boolean;

begin
  p := pn;
  flag := true;
  while flag and (p <= pk) do
  begin
    if s[p] in Blanks then flag := false
    else p := p + 1
  end;
  if p > pk then PosBlank := 0
  else PosBlank := p
end;

function PosNonBlank(s: string; pn, pk: integer): integer;
{
  Ищет в строке s в позициях от pn до pk непробельный символ.
  Возвращает его позицию в строке или ноль, если таковой символ не найден.
  Использует подмножество пробельных символов Blanks, что позволяет определять
  произвольный набор пробельных символов (например, табуляцию и т.д.)
}
var
  p: integer;
  flag: boolean;

begin
  p := pn;
  flag:=true;
  while flag and (p <= pk) do
  begin
    if s[p] in Blanks then p := p + 1
    else flag := false
  end;
  if p > pk then PosNonBlank := 0
  else PosNonBlank := p
end;

var
  s: string;
  i, l, k: integer;

begin
  Write('Введите строку: ');
  Readln(s);
  l := Length(s);
  k := 0;
  i := PosNonBlank(s, 1, l);
  while (i>0) and (i <= l) do
  begin
    k := k + 1;
    i := PosBlank(s, i + 1, l);
    if i = 0 then i := l + 1
    else i := PosNonBlank(s, i + 1, l)
  end;
  Writeln('Количество слов в строке равно ', k)
end.

Номер 1.
256000*64=16384000бит
16384000:8=2048000Байт
2048000:1024=2000КБайт
ответ: 2000КБ
Номер 2.
E:\БАЙКАЛ\ВЕТРЫ\Баргузин.bmp. 
в каталоге БАЙКАЛ был создан подкатолог ВЕТРЫ, значит первоначальный путь был таким Е:\БАЙКАЛ\Баргузин.bmp.
Номер 3.
V = K * I, где V - объем; K - размер изображения; I - количество бит. N = 2^i, где N - количество цветов.N = 2^i.256 = 2^i.I = 8 бит.V = K * I = (1920*1080*8)/2^13 = (2^7 * 15 * 2^3 * 135 * 2^3)/2^13 = (2^13 * 2025)/2^13 = 2025КБайт
Номер 4.
k=4*32*64=8192
b=8192*8бит=65536бит
65536:8=8192Байт
8192:1024=8КБайт
Номер 5.
К1=32*64=2048
К2=64*128=8192
i1=8192*16=131072бит
i2=4096*1Байт=4096Байт*8=32768бит
i=i1+i2=131072+32768=163840бит=20480Байт=20КБайт