Finde die erste Zahl die durch alle Zahlen bis 30teilbar ist

4 Lösungen

#65

Finde die erste Zahl die durch alle Zahlen bis 30teilbar ist

Fortgeschrittener - Perl von 96fabi - 25.09.2014 um 09:01 Uhr

Gesucht wird die erste Zahl, die durch alle Zahlen bis 30 geteilt werden kann(1-30).
Zum Einstieg kann man erstmal die erste Zahl suchen , die durch alle Werte bis 20 geteilt werden kann.
Dieses ist 232792560

Bitte melden Sie sich an um zur Aufgabenbeschreibung eine Frage zu stellen.

Frage stellen

Bitte melden Sie sich an um eine Lösung einzureichen.

Lösung einreichen

von Kimaro (520 Punkte) - 21.10.2014 um 15:23 Uhr

Perl-Code


#!/usr/bin/perl
use strict;
use warnings;
 
my $x = 0;
my $a = 30;
my $t = 0;

sub berechnung() {
	my $y = 1;
	my $c = 0;
	my @arr = (29,27,25,23,21,19,17,28,26,24,22,20,18,16);
	while ($y == 1) {
		if ($a %$arr[$c]) {
			$y = 0;
		}
		else {		
			if ($c == 14 ) {
				print "ihr Ergebnis ist $a";
				$y = 0;
				$x = 1;
			}
			$c = $c + 1;
		}	
	}	
	return $x;
}

while ($x == 0) {
	berechnung();
	$a = $a + 30;	
}

<STDIN>