Натуральное число называется числом армстронга, если сумма цифр числа, возведенных в n-ю степень, где n - количество цифр в числе, равна самому числу. напримерт153=1^3 5^3 3^3. найдитетвсе трехзначныеии четырехзначныеичисла армстронга

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.

Задача связанная с двоичной системой счисления ( (n)-основание системы счисления, (2)-двоичная с.с,^ -степень числа(разряды двоичных чисел),(10)-десятичная с.с),при переводе из 2-ной с.с мы расставляем разряды чисел,начиная от знака = и с 0-го разряда,потом основание с.с возводим в степень числа:  10 (2)= 1*2^1+0*2^0=2+0=2 (10), т.е 2 дочери , 1000=1*2^3+0*2^2+0*2^1+0*2^0=8+0+0+0=8 (10) -лет,  отнимаем 1000 (2) - 10 (2) =110(2),переводим из 2-ной с.с в десятичную с.с 110(2) = 1*2^2+1*2^1+0*2^0=4+2+0=6 (10) лет 
ответ: 2 дочери,старшей 8 лет,младшей 6 лет

Одноранговые сети: В сети присутствует некоторое количество машин, при этом каждая может связаться с любой из других. Каждая из этих машин может посылать запросы другим машинам на предоставление каких-либо ресурсов в пределах этой сети и, таким образом, выступать в роли клиента. Будучи сервером, каждая машина должна быть обрабатывать запросы от других машин в сети, отсылать то, что было за Каждая машина также должна выполнять некоторые вс и административные функции (например, хранить список других известных машин-«соседей» и поддерживать его актуальность). Любой член данной сети не гарантирует свое присутствие на постоянной основе. Он может появляться и исчезать в любой момент времени. Но при достижении определённого критического размера сети наступает такой момент, что в сети одновременно существует множество серверов с одинаковыми функциями. Пример такой сети: I2P, Gnutella2. сеть с использованием отдельного сервера: у такой сети все компьютеры связаны друг с другом через сервер а не напрямую. Для получения какой-либо информации с другого компьютера запрос поступает не на тот компьютер откуда должна быть взята информация а сначала поступает на сервер. Там эта информация обрабатывается, сервер ищет ответ и высылает его обратно.