Вводится число. напечатать yes, если оно является степенью двойки, no - иначе. ввод 1 8 вывод 1 yes ввод 2 22 вывод 2 no

Program x2; var n: longint; begin write('введите n, n = '); readln(n); while n mod 2 = 0 do        n: = n div 2; if n=1 then write('yes')          else write('no'); end.

Полмиллиона долларов было потрачено на создание первого в мире компьютера eniac, запущенного в феврале 1946 года в соединенных штатах. оборудование для агрегата, поражавшего своими размерами, монтировалось в течение трех лет. затраты энергии 28-тонного electronic numerical integrator and computer составляли 140 квт, для охлаждения использовались авиационные двигатели chrysler. аналитическая машина чарльза бэббиджа ранее изобретенные компьютеры были экспериментальными вариантами, да и сам eniac поначалу именовался "электронным вычислителем". до него была аналитическая машина бэббиджа, еще ранее – арифмометр кальмара, устройство блеза паскаля, машина лейбница. последние три являлись скорее калькуляторами, в отличие от изобретения бэббиджа, которое можно назвать полноценным компьютером, а самого ученого – изобретателем прообраза современного компьютера. решая проблему автоматизации своего труда, ученый разработал аналитическую машину, но построить ее не удалось по причине того, что его идеи значительно опережали технологические возможности того времени. машину составляли основные компоненты, используемые в современных компьютерах. когда в 1991 году по его чертежам были сконструированы машина и принтер, они отлично заработали. это наглядно демонстрирует тот факт, что компьютерная эпоха могла бы начаться раньше на целое столетие. electronic numerical integrator (eniac) первым реально работающим компьютером все же считается eniac. его разрабатывала группа ученых-кибернетиков для военных нужд и использования при обсчете артиллерийских и авиационных таблиц. eniac был создан для решения важной и серьезной по тем временам – увеличения мощности и производительности "вычислительного армейского ресурса", которого катастрофически не хватало, так как он состоял преимущественно из людей. несколькими позже, разработанный учеными-кибернетиками, eniac, применялся при проектировании водородной бомбы и для исследований излучений из космоса. кто изобрел первый персональный компьютер? все вышеописанное является предысторией современного персонального компьютера, создание которого никто специально не планировал. он появился в 1976 году в мастерской гаража, в которой трудились предприимчивые двадцатилетние американцы без специального образования. их звали стив джобс и стефан возняк. этими был создан первый маленький "apple" ("яблоко"), используемый для видеоигр, но уже возможностями программирования. позже джобс создал компанию "apple computer", запустившей массовое производство персональных компьютеров и прославившей имя ее создателя. первый советский компьютер однозначно ответить на вопрос, кто изобрел компьютер, оказалось не так-то просто. есть версия и ее свидетельства, что создателем первого персонального компьютера был советский конструктор из омска арсений анатольевич горохов, который создал свое детище в 1968 году, то есть на несколько лет раньше американцев. изобретение именовалось "программирующим прибором", включало системный блок с жестким диском, памятью, материнской платой, видеокартой и всей остальной начинкой, а также монитор. отсутствовала только мышь. к сожалению, изготовление промышленного образца своевременно не было финансировано, и творческая мысль реализовалась далеко за пределами нашей страны. кроме компьютера, горохов разработал еще и графопостроитель, то есть плоттер, который по официальным данным также считается чужим изобретением. у изобретателя есть еще 20 авторских свидетельств, представляющих огромный интерес для наших современников.

Более изящное решение : ) проблема в строке  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.