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) верен, но данное задание ответа не имеет.
Объяснение:
развёрнутая форма - цифры числа умножаются на основание системы счисления возведённое в степень по правилу:
показатель степени - место на котором цифра, возводимая в эту степень, должна находится. (крайняя справа - нулевая степень, вторая справа - первая и т.д.)
Можно чуть поправить вывод, чтобы когда vse =, не вылезали 1 i 3, 1 i 2, 2 i 3.
Да и вообще writeln'ов можно наставить и переменные назвать покрасивше. но это уж вы сами, думаю, справитесь. В VAR у меня тоже есть лишние переменные, переделывал старый свой код наспех =)
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) верен, но данное задание ответа не имеет.
Объяснение:
развёрнутая форма - цифры числа умножаются на основание системы счисления возведённое в степень по правилу:
показатель степени - место на котором цифра, возводимая в эту степень, должна находится. (крайняя справа - нулевая степень, вторая справа - первая и т.д.)
USES CRT;
VAR m1,m2,n,n1,n2,n3,n4,n5,n6,s1,s2:LongInt;
BEGIN
ClrScr;
ReadLn(n);
m1:=n;
n1:=m1 div 100;
n2:=m1 mod 10;
n3:=(m1-n1*100-n2) div 10;
if n1=n2 then if n1=n3 then writeln('vse =');
if n1=n2 then writeln('1 i 3 =');
if n2=n3 then writeln('2 i 3 =');
if n1=n3 then writeln('1 i 2 =')
else writeln('<>');
END.
Проверяйте, что непонятно - спрашивайте.
Можно чуть поправить вывод, чтобы когда vse =, не вылезали 1 i 3, 1 i 2, 2 i 3.
Да и вообще writeln'ов можно наставить и переменные назвать покрасивше. но это уж вы сами, думаю, справитесь. В VAR у меня тоже есть лишние переменные, переделывал старый свой код наспех =)
Всего хорошего.