Это невозможно, ибо при A=0, B=1 как при конъюнкции так и при дизъюнкции высказывание будет ложным.
Var
a,b : array[1..8, 1..8]of integer;
i, j,k, x, y, x1, y1:integer;
begin
k:=-1;
for i:= 1 to 8 do
begin
k:=-k;
for j:= 1 to 8 do
begin
a[i,j]:=k;
b[i,j]:=k;
k:= -k;
end;
end;
Readln(x,y);
Readln(x1,y1);
if (a[x,y] = b[x1,y1]) then Writeln('YES')
else Writeln('NO');
end.
Для алфавита из 256 символов на один символ нужно 8 бит. Это 1 байт. Значит на строку 64 байта. Количество байт на странице 32*64=2048. Разделим на 1024 и получим объем одной страницы в килобайтах - 2 кб. А у нас 20 кб, значит страниц 10.
Ответ: 10 страниц.
Ответ:
var i:integer;
begin
for i:=1 to 10 do writeln(i:2,' * 2 = ',i*2)
end.