Написать код в логомиры 3.0 для этого

1*25 + 0*24 +1*23 +1*22 + 0*21 + 1*20 = 1*5^2 + 0*2^3 * 3 + 1 * 23 + 1 * 11 * 2 + 0 * 3*7 + 1 * 2^2 * 5. - ЭТО НЕ развёрнутая форма записи числа.  И поэтому НЕЛЬЗЯ определить основание системы счисления. Поэтому записать в краткой форме ЭТО нельзя. Вот если бы была уже указано основание системы счисления, можно было бы выполнить действия и записать краткую форму.

Возможно вы имели в виду 1*2^5 + 0*2^4 +1*2^3 +1*2^2 + 0*2^1 + 1*2^0 и тогда да, ответ предыдущий (101101) верен, но данное задание ответа не имеет.

Объяснение:

развёрнутая форма - цифры числа умножаются на основание системы счисления возведённое в степень по правилу:

показатель степени - место на котором цифра, возводимая в эту степень, должна находится. (крайняя справа - нулевая степень, вторая справа - первая и т.д.)

program Project1;

var

 S : String;

 K, Num1, Num2 : Integer;

begin

 repeat

   Writeln('Задайте целое число:');

   Readln(K);

   S := 'Мы собрали ' + IntToStr(K) + ' ';

   Num1 := K mod 10;

   K := K div 10;

   Num2 := K mod 10;

   case Num1 of

     1 :

     begin

       if Num2 = 1 then S := S + 'грибов'

       else S := S + 'гриб';

     end;

     2..4 :

     begin

       if Num2 = 1 then S := S + 'грибов'

       else S := S + 'гриба';

     end;

     else

       S := S + 'грибов';

   end;

   S := S + ' в лесу.';

   Writeln('Результат:');

   Writeln(S);

   Writeln('Повторить - Enter. Выход - любой символ + Enter.');

   Readln(S);

 until S <> '';

end