По каналу связи шифрованные сообщения, содержащие только 11 букв: к у ш а о н с и л п ю. для передачи используется неравномерный двоичный код. для десяти букв используются кодовые слова:
к-00 у-111 ш-0100 а-0101 о-0110 н-0111 с-1000 и-1001 л-1010 п-1100
укажите кратчайшее кодовое слово для буквы ю, при котором код удовлетворяет условия фано. если таких кодов несколько, укажите код с наименьшим числовым значением.

var t: integer;

begin

  read(t);

  while t > 6 do

      t: =t-6;

 

  case t of

      0..2: write('green');

      3: write('yellow');

      4..6: write('red');

  end;

end.

Var       best, m, s,i: integer; begin       best : = 10000000;       for i: = 1 to 3 do begin               write('min sec = ');               readln(m, s);               if best > m * 60 + s then best : = m * 60 + s;       end;             writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.

var a,b,i,s: integer;

begin

writeln('введите 2 числа');

readln(a); readln(b);

s: =0;

if a< b then

for i: =a to b do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

if a> b then

for i: =b to a do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

writeln(s)

end.

на паскале:

 

program ostatok; var c: integer; beginwriteln('введите число с.'); readln(c); writeln('остаток от деления ',c,' на 10, возведенный в квадрат, равен ',sqr(c mod 10)); end.