Schaltjahresberechnung

2 Lösungen

#41

Anfänger - Perl von Process1 - 10.01.2013 um 06:52 Uhr

Es soll eine jahreszahl übergeben werden und es soll überprüft werden ob es sich um ein Schaltjahr handelt oder nicht.

Es gilt:
- Wenn ein Jahr durch 4 teilbar ist, ist es ein Schaltjahr, aber
- wenn es durch 100 teilbar ist, ist es kein schaltjahr, außer
- es ist durch 400 teilbar, dann ist es ein schaltjahr

z.b. 1664, 1600, 2000, 2004 sind schaltjahre
1003, 2006, 1700 sind keine schaltjahre

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 RivalofSilen (620 Punkte) - 21.03.2014 um 11:26 Uhr

Perl-Code

print "Bitte Jahreszahl eingeben\n\n";
chomp($jahr=<STDIN>);
if($jahr%4 eq 0 and $jahr%100 ne 0 or $jahr%400 eq 0)
{
	print "Es handelt sich um ein Schaltjahr";
}else{
	print "Es handelt sich um kein Schaltjahr";
}