usr bin perl -w print Введите число chop input print Введите число cho

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
#!/usr/bin/perl -w
print "Введите число a:\n";
$a = chop($input=<>);
print "Введите число b:\n";
$b = chop($input=<>);
$sum = $a + $b;
$dif = $a - $b;
$dec = $a * $b;
$del = $a / $b;
print "Результат a+b=";
print $sum;
print "\nРезультат a-b=";
print $dif;
print "\nРезультат a*b=";
print $dec;
print "\nРезультат a/b=";
print $del;