Eine kleine Mathe-Aufgabe

[Reiner]

#!/usr/bin/perl

$preis_pro_kilo = 8.5;
$preis1 = 8.25;
$menge1 = 100;
$preis2 = 8;
$menge2 = 150;
$preis3 = 9;

$menge3 = ($preis_pro_kilo*($menge1+$menge2) - $preis1*$menge1 - $preis2*$menge2) / ($preis3-$preis_pro_kilo);
$gesamtmenge = $menge1+$menge2+$menge3;
print "von Kaffesorte 3 benötigt man: ".$menge3."kg\n";
print "Gesamtgewicht: ".$gesamtmenge."kg\n";