)участникам олимпиады от марсиан записано с всех символов марсианского алфавита : твирп! ки! сколько информации оно несет?

Ну раз тут всего 8 разных символов, и это - по условию - все символы алфавита, то на каждый символ приходится 3 бита. а дальше - таблица умножения, трижды

Var       i, n, s: integer; begin       readln(n);       i : = 0;       s : = 0;             while i < 7 do       begin               if (n mod 2 = 1) then begin                       s : = s + n;                       i : = i + 1;               end;               n : = n + 1;       end;             writeln(s); end. var       i, n, s: integer; begin       readln(n);       i : = 0;       s : = 0;             repeat               if (n mod 2 = 1) then begin                       s : = s + n;                       i : = i + 1;               end;               n : = n + 1;       until i > = 7;             writeln(s); end. var       i, n, s: integer; begin       readln(n);       n : = n + (n + 1) mod 2;       s : = 0;             for i : = 1 to 7 do       begin               s : = s + n;               writeln(n);               n : = n + 2;       end;             writeln(s); end.

Uses graphabc; const       cx = 200;       cy = 200;       radius = 150; procedure chandelier(pencolor, brushcolor: color); begin       setpencolor(pencolor);       setbrushcolor(brushcolor);       line(cx, 0, cx, cy - radius);       fillpie(cx, cy, radius, 0, 180);       ellipse(cx - radius, cy - 30, cx + radius, cy + 30); end; procedure dark(); begin       clearwindow(clblack);             chandelier(clgreen, cldarkgreen);             setbrushcolor(clblack);       setfontcolor(clwhite);       textout(cx - 30, 2 * cy - 50, 'false'); end; procedure light(); begin       clearwindow(clsilver);             setbrushcolor(cllightgoldenrodyellow);       fillpie(cx, cy - radius div 2, 3 * cx, 210, 330);             chandelier(clgreen, cllime);             setbrushcolor(clyellow);       fillcircle(cx, cy - radius div 2, 35);             setbrushcolor(cllightgoldenrodyellow);       setfontcolor(clblack);       textout(cx - 30, 2 * cy - 50, 'true'); end; procedure drawlamp(state: boolean); begin       if state then               light()       else dark(); end; var       lampstate: boolean;       key: char; begin       setwindowsize(2 * cx, 2 * cy);       setfontsize(20);       lampstate : = false;             repeat               drawlamp(lampstate);               key : = readchar();               if key = 'h' then                       lampstate : = not lampstate;       until key = #27; end.