Вкоробку лежат 16 кубиков. все кубики разного цвета. сколько информации несёт сообщение о том, что из коробки достали красный формулу я знаю n=2i что в неё

За n  берётся количество символов в предложении подставляешь в формулу и смотришь в какой степени получается 2,если число нельзя перевести в 2 в какой нибудь степени, то берётся приблизительный ответ степень большей чем n

Если ты сдаешь эту на сайт acmu.ru или acmp.ru: var a, b: longint; begin assign(input, 'input.txt'); reset(input); assign(output, 'output.txt'); rewrite(output); read(a, b); write(b - 1, ' ', a - 1); end. а, если ты её просто учителю показываешь: var a, b: longint; begin write('сколько банок прострелил гарри? '); readln(a); write('сколько банок прострелил ларри? '); readln(b); writeln('гарри не прострелил ', b - 1, ' банок'); writeln('ларри не прострелил ', a - 1, ' банок'); end.

Uses crt;   var a,max,x: integer;   begin           clrscr;           write('введите число: ');     readln(a);           max: =a mod 10;         while a> 0 do               begin          x: =a mod 10;           a: =a div 10;             if x> max then max: =x;     end;   writeln('максимальная цифра: ',max);   readln;   end.