1. 

   Irinaneblondinka New Member

   Составьте программу нахождения трёхзначного числа , куб суммы цифр которого равен емусамому

    

   Irinaneblondinka, 9 фев 2010

   #1
2. 

   Пахутко Екатерина New Member

   var
   a,b,c,n:integer;
   begin
   for n:=100 to 999 do
   begin
   a:= n div 100;
   b:= n div 10 mod 10;
   c:= n mod 10;
   if (a+b+c)*(a+b+c)*(a+b+c)=n then writeln(n);
   end;
   end.
    
   и в результате получаем, что это число 512

    

   Пахутко Екатерина, 9 фев 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня