Pascal uždavinys

Sveiki, norėčiau pagalbos su šiuo uždaviniu:

Yra tokiu idomiu skaiciu kur kiekvieno skaitmens kubo suma yra lygi tam paciam skaiciui.Sudarykite programa viesiems tokiems galimiems skaiciams rasti.

Kodo jokio dar neturiu, tad nieko parodyt negaliu.

Ačiū!

Paimi skaičių, tada mod 10, ir turi jo paskutinį skaičių. Tada pakeli tą paskutinį skaičių kubu, gautą rezultatą pridedi prie kito kintamojo, sakykim kubuSuma. Tada tą skaičių darai div 10, ir taip kartoji, kol peržiūri visą skaičių. Tada lygini..

Oh well.. Kaip apie tai galėjau nepagalvoti.

Dėkui Tau

Oh well.. Kaip apie tai galėjau nepagalvoti.

 

Dėkui Tau

Gali parašyti kelis tokius skaičius kaip pavyzdį ?

Sveiki, norėčiau pagalbos su šiuo uždaviniu:

 

Yra tokiu idomiu skaiciu kur kiekvieno skaitmens kubo suma yra lygi tam paciam skaiciui.Sudarykite programa viesiems tokiems galimiems skaiciams rasti.

 

Kodo jokio dar neturiu, tad nieko parodyt negaliu.

 

Ačiū!

program programa;

function keltiKubu(a:integer):integer;
begin
keltiKubu := a*a*a;
end;

function analize(a:integer):boolean;
var i, suma, laik:integer;
begin
suma := 0; laik := a;
while (a > 0) do
   begin
   suma += keltiKubu(a mod 10);
   a := a div 10;
   end;
analize := suma = laik;
end;

var i:integer;
Begin
for i:=100 to 1000 do
   begin
   if analize(i) then writeln(i);
   end;
readln;
end.

Gali parašyti kelis tokius skaičius kaip pavyzdį ?

153 = 1³ + 5³ + 3³

370 = 3³ + 7³ + 0³

371 = 3³ + 7³ + 1³

407 = 4³ + 0³ + 7³