Проблема в строке c:= (b*b*b); Ты ищешь сумму кубов, а для 4-значных чисел нужно искать сумму 4-х степеней. Нужно проверять число а: если от 100 до 999, то выполняем c:= (b*b*b); а если от 1000 до 9999, то выполняем c:= (b*b*b*b);
Код ниже работает и выдаёт результат: число Армстронга ==> 153 число Армстронга ==> 370 число Армстронга ==> 371 число Армстронга ==> 407 число Армстронга ==> 1634 число Армстронга ==> 8208 число Армстронга ==> 9474
var a,b,c,d,a2:integer; begin for a:=100 to 9999 do begin d:=0; a2:=a; while (a2 <> 0) do begin b:= a2 mod 10; a2:= a2 div 10; if a<1000 then c:= (b*b*b) else c:= (b*b*b*b); d:= d+c; end; if (a = d) then writeln('число Армстронга ==> ', a); end; end.
Компьютер необходим человеку, поскольку дает ему такие возможности, о которых мы раньше и представить себе не могли. и в повседневной жизни, и в производстве уже нельзя обойтись без компьютера. в общем смысле компьютер — это электронно-вычислительное устройство, способно выполнять многие функции вместо человека, причем во много раз быстрее. скорее всего, развитие производства и увеличение объема информации к необходимости создания компьютера как своего рода инструмента для и хранения этой информации. представьте себе, что вся информация, которая имеется в вашем персональном компьютере, будет храниться на бумажном носителе. да у вас весь дом будет завален бумагами! компьютер не только хранит информацию, но и обрабатывает и систематизирует ее. компьютер и всемирная сеть интернет предоставляют людям возможность общаться друг с другом, играть в любые игры, читать любимые книги, смотреть фильмы. порой от компьютера невозможно оторваться — даже для того, чтобы поесть. есть много способов похудения, а с появлением доступа в интернет персональный компьютер уже можно назвать одним из них. все области деятельности человека связаны с компьютером. компьютеру стало возможным создавать практически полностью автоматизированные производства, реализовывать многие проекты, ускорить и сделать более продуктивным процесс обучения и еще многое другое.
16 символов
Объяснение:
I = K * i
I - информационный объём текста (размер файла, содержащего сообщение)
K - количество символов в тексте
i - информационный вес одного символа (число бит, используемых для записи одного символа)
N = 2^i
N - мощность алфавита (количество символов в алфавите)
i - информационный вес одного символа (число бит, используемых для записи одного символа)
Дано:
K = 15 360 символов
I = 61 440 бит
Найти:
N
I = K * i
i = I / K
i = 61 440 / 15 360 = 4 бита
N = 2⁴ = 16 символов