Сначала переведи в 10 Для этого нужно пронумеровать справа налево от 0 до ... и потом умножать на 2 в этой степени действуем слева направо 1*2^0+1*2^3+1*2^4 и так далее, потом складывешь и у тебя получится число какое-то, вот его ты и делишь на 16
Давай сначала переведем это все в 10-ную. Начинаем с единицы и смотрим, если дальше идет 0, то просто умножаем результат на 2, но т.к. у нас пока только 1, то умножаем 1 на 2 и получаем 2. Дальше идет 1, теперь нам надо результат умножить на 2 и прибавить 1. Т.е. каждый раз когда ты видишь 0, то просто умножь на 2, а если видишь 1, то после умножения прибавь один. Так у нас получается 1389
Теперь перевод в 16 систему полученое число нужно делить на 16 1389/16=86, остаток = 13, он нам и нужен. На 16 языке, 10=А, 11=B 12=C, 13=D, 14=E, 15=F. 16 там нету, ибо система ведет отчет с нуля. Запоминаем D. 86/16=5, остаток 6. Теперь ставим наши цифры/буквы в обратном порядке(так надо делать всегда), и получаем 56D ОТВЕТ: 56D
Var a,b,c,d,e,f,k:integer; begin for a:=1 to 3 do for b:=0 to 9 do if (a<>b) then for c:=0 to 9 do if (c<>a)and(c<>b) then for d:=0 to 9 do if (d<>a)and(d<>b)and(d<>c) then for e:=0 to 9 do if (e<>a)and(e<>b)and(e<>c)and(e<>d) then begin k:=a*10000+b*1000+c*100+d*10+e; for f:=0 to 9 do if (f<>a)and(f<>b)and(f<>c)and(f<>d)and(f<>e) then if k+k+k=b*10000+e*1000+f*100+a*10+e then writeln('книга = ',k,' наука = ',b*10000+e*1000+f*100+a*10+e); end; end.
Для этого нужно пронумеровать справа налево от 0 до ...
и потом умножать на 2 в этой степени
действуем слева направо
1*2^0+1*2^3+1*2^4 и так далее, потом складывешь и у тебя получится число какое-то, вот его ты и делишь на 16