Листинг программы и скриншот результата в приложениях.
Написано на PascalABC.NET но должно работать на всех Паскалях.
Not(X) or not(X or Y) or not(Y and not(X and Y))
Not (X) or not (X or Y) or not(Y) or not(X and Y)
Not (X) or (not(X) and not(Y)) or (not(Y) or not(X and Y))
Not (X) or (not(X) and not(Y)) or (not(Y) or not(X) or not(Y))
not(Y) or not(X)
XIV + XV = 15 + 14 = 29 = XXIX
1) 1
2) 0
3) 1
4) 1
5) 1
если нужны пояснения в личку потому как муторно все писать, лучше словами объяснить
Procedure factorize(n: longint);
var divisor: longint;
begin
divisor := 2;
while divisor * divisor <= n do
if n mod divisor = 0 then
begin
n := n div divisor;
writeln(divisor);
end
else inc(divisor);
if n <> 1 then writeln(n);
end;
var n: longint;
begin
readln(n);
factorize(n);
end.