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 wertz (490 Punkte) - 29.04.2015 um 12:18 Uhr

Perl-Code

# Konnte es leider nicht testen, da meine Konsole abstürtzt wenn ich das starte, aber es müsste funktionieren. LG

#! /usr/bin/perl
 
use strict;
use warnings;

my $schalter = 0;

for(my $i = 1; $schalter != 1; $i++){
	$schalter = 1;
	for(my $j = 1; $j <= 30; $j++){
		if($i % $j != 0){
			$schalter = 0;
		}
	}
	if($schalter == 1){
		print "\n Erste Zahl die durch 1 - 30 teilbahr ist, ist: ", $i;
	}
}