Kaprekar-Zahl - #187736 (Allgemeines zu Perl)

Dominik

2017-12-14 19:25

User since
2017-12-13
3 Artikel
BenutzerIn
[default_avatar]

Bin wieder am verzweifeln, wir sollen alle Kaprekar-Zahlen bis 800000 ausgeben, das sind Zahlen die wie 9 die 9^2=81 und 81 ist 8+1=9 also wieder 9
http://www.rzbt.haw-hamburg.de/dankert/spezmath/ht...

Code (perl): (dl )

for($a=1; $a=<800000; $a++){
$aquadrat=$a**2;
$laenge=length($a);
$testata=$aquadrat%(10**$laenge);
$testatb=$aquadrat/(10**$laenge);
$testatb=int($testatb);
if($testata+$testatb==$aquadrat) 
        {print "$a\n"}
        else {last};
}

Ich bekomme es wir aber nichts ausgegeben, habe nicht die geringste Ahnung warum.

Anhänge

text/plain
13 lines
4.pl