Решите логическое уравнение ( x 1 ∨ x 2 )∧(( x 3 ∧ x 4 )→( x 1 ∧ x 2 ))=0

uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.

если хранить без знака, то диапазон от 0 до 15(2^3+2^2+2^1+2^0) 

253(8)=10101011(2)

2в4(16)=1010110100(2)

48(16)=1001000(2)