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
i, n: integer;
s, t: string;
begin
readln(s);
s := ' ' + s;
n := length(s);
for i := length(s) downto 1 do
if s[i] = ' ' then
begin
t := t + copy(s, i + 1, n) + ' ';
n := 0;
end
else n := n + 1;
writeln(t);
end.