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 Chilli (450 Punkte) - 24.10.2017 um 06:56 Uhr

Perl-Code

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

my $max = 30;
my $geteielt = 1;
my $z = 0;
my $zahl = 1;
my $check = 0;

for($geteielt..$max)
 {
	$check = 0;
	while(!$check)
	{
		$check = 1;
		$z = 1;
		for($z..$geteielt)
		{
			if($zahl % $z != 0)
			{
				$check = 0;
			}
			$z++;
		}
		if($check)
		{
			print "$zahl ist durch die zahlen 1 - $geteielt teilbar\n";
		}
		$zahl ++;
	}
	$geteielt++;
}
my $end = <STDIN>;