Определить информационный обьем сообщения "a+b=c" если для описания формул необходимо воспользоваться 64 символьным алфавитом.

n=64

k=10i=6  i=k*i=10*6=60 бит 

таблица истинности выражения a → b

а |  b | a → b

0  i  0 |      1

0  i  1 |      1

1  i  0 |      0

1  i  1 |      1

теперь пример: ¬((x> 3)  → (x> 4))

при х = 1: ¬((1> 3)  → (1> 4))= ¬((0)  → (0))=¬(1) = 0,т.е.(1> 3)=ложь(> 4)=ложь(0), а ложь(0) → ложь(0) = истина (1), а отрицание лжи (0) = истина(1)

при х = 2: ¬((2> 3)  → (2> 4))= ¬((0)  → (0))=¬(1) = 0

при х = 3: ¬((3> 3)  → (3> 4))= ¬((0)  → (0))=¬(1) = 0

при х = 4: ¬((4> 3)  → (4> 4))= ¬((1)  → (0))=¬(0) = 1

ответ. х=4.

паскаль же?

var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin

d: =d+k;

val(s,k,err);

end;

write (d);

end.