# # sumowanie i zliczanie liczb z wejścia # wejście: dowolny skończony ciąg danych rzeczywistych podany na wejściu standardowym # wyjście: liczba elementów ciągu i suma elementów ciągu rozdzielone znakiem tabulacji # ograniczenia: pierwsza dana w każdym wierszu musi być liczbą # $n = 0; $suma = 0.0; while ($x = ) { $n++; $suma = $suma + $x; }; print STDOUT "Ilosc\tSuma\n"; print STDOUT $n . "\t" . $suma . "\n";