#! /usr/bin/perl
use warnings; # gibt warnungen bei verdaechtigen Konstrukten aus
use strict;

# 78 Bindestriche und ein Zeilenumbruch
my $line = "-" x 78 . "\n";

print "\n\nDas Paddsensche Dreieckswunder\n\n";
print $line;
print "Programm zum Errechnen von Dreiecksseiten im rechtwinkligen Dreieck\n";
print $line, "\n";
print "Hast du die Hypothenuse gegeben? Gib 'Ja' oder 'Nein' ein: ";

my $info1 = <STDIN>;
if ( lc($info1) eq "ja\n") {    # lc erlaubt ja, Ja, JA, jA, NEIN, ...

    print "\n Ok, dann gebe sie nun ein\n\n";
    my $hypo = <STDIN>; # Die Hypothenuse
    chomp($hypo); # zeilenumbruch am ende wegwerfen, wenn vorhanden

    print "\n ...und nun die Seite, die du weisst eingeben...\n\n";
    my $seite = <STDIN>; # Die seite
    chomp($seite);

    my $fehlendeSeite = ((($hypo ** 2) - ($seite ** 2)) ** 0.5);
    print "\n Die fehlende Seite hat die Laenge: $fehlendeSeite ";
} # if

else { # lc($info1) ist nicht ja
    print "\n Gut. Dann gib jetzt bitte die erste Seite ein:\n\n";
    my $seite1 = <STDIN>;
    chomp($seite1);

    print "\n ...und dann die Seite 2 eingeben:\n\n";
    my $seite2 = <STDIN>;
    chomp($seite2);

    my $hypothenuse = (($seite1 ** 2) + ($seite2 **2)) ** 0.5;
    print "\n Die Laenge der Hypothenuse c betraegt: $hypothenuse\n";
} # else

print "\n$line";

#!perl
use strict;
use warnings;


print "Wie heisst die Hauptstadt von Frankreich?\n\n";

chomp(my $a = <STDIN>)
if (lc($a) eq 'Paris') {
    print "Stimmt! ...Weiter zur naechsten Frage...\n\n";
} else {
    print "Falsch... Die richtige Antwort ist: Paris.\n\n";
}
sleep 10;

print "Wie heisst der/die Bundeskanzler/in von Deutschland?";

chomp(my $a = <STDIN>)

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

my $wasauchimmer = 0;
my $anzahl = <STDIN>;
my $zaehler = 0;
while ( $zaehler < $anzahl ) {
  $wasauchimmer += 8;
  $zaehler++;
}
print $wasauchimmer, $/;