Иван хочет закодировать 40 символов с равномерного двоичного кода. Определите минимальную возможную длину кодовых слов

var x,y: integer;

begin

  read(x,y);

  if (x> 0) and (y> 0) then writeln("i");

  if (x> 0) and (y< 0) then writeln("iv");

  if (x< 0) and (y> 0) then writeln("ii");

  if (x< 0) and (y< 0) then writeln("iii");

end.

не трундая . приступим.

пусть а - первое число, б - второе число, с - третье число.

четное число - 2n

if (a+b+c) div 2 = 0 then writeln ('их сумма четное число') else writeln ('их сумма нечетное число');

var a,b,c: integer;

begin

  read(a,b,c);

  if b=с then writeln(1);

  if a=с then writeln(2);

  if b=a then writeln(3);

end.

переведём это число в десятичную систему отсчёта: 6*7*7*7+3*7*7+1*7+7*1=2219.

теперь переведём это число в двочную систему:

2219: 2=1109 1

1109: 2=554 1

554: 2=277 0

277: 2=138 1

138: 2=69 0

69: 2=34 1

34: 2=17 0

17: 2=8 1

8: 2=4 0

4: 2=2 0

2: 2=1 0

1: 2=0 1

значит число в двоичном виде: 100010101011