Új hozzászólás Aktív témák

• #1282 yksz aktív tag

  Új Válasz 2006-10-09 20:47:09 #1282

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  yksz

  aktív tag

  Szervusztok! Lenne egy surgosen megoldásra váró problémám:
  itt van ez a ciklus:
  while h>1 do
  begin
  for i:=1 to h do
  begin
  r:=strtoint(p);
  l:=l+r;
  end ;
  p:=inttostr(l);
  h:=length(p);
  end ;
  és ha itt p-be olyan változót tárolok ami a ciklus lefuttatása után 2, vagy tobbjegyu értéket ad l-nek akkor a ciklusom valamiért végteleníti magát, vagyis sose ír ki semmit, de nem ír hiobát, ezért gondolom, h végtelen. Arra lenne elméletileg, h kiszámoljam egy szám mágikus számát, pl 198-nak 1+9+8=18 1+8=9 lenne. 1-18 ig szépen csinál midnent, amikor beadom a 19et nem ír ki semmit, csak terhlei a procit 100%-on mert 1+9=10 lenne. Miért van ez és h tudnám kikuszobolni ezt?

Új hozzászólás Aktív témák