Thread Multiplikator nach Eingabe von Teiler berechnen *war 2 Aufgaben, die nur... (9 answers)
Opened by ReallySorry at 2011-12-01 00:27

Gast wer
 2011-12-01 01:57
#154570 #154570
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
use strict;
use warnings;
my $x='';
while(!$x || $x=~/\D/)
{
  print "Bitte geben Sie einen Teiler ein! ";
  chomp($x = <STDIN>);
}

my $s='Ich bin durch %s teilbar! Der Multiplikator ist %s!';
for (0..30)
{
  print;
  $_/=$x;
  printf($s,$x,$_) if (int($_) == $_);
 print "\n";
}



Tipp Zweite Aufgabe Regex:s/[^aeiou]//gs
Last edited: 2011-12-01 08:55:49 +0100 (CET)

View full thread Multiplikator nach Eingabe von Teiler berechnen *war 2 Aufgaben, die nur...