#!/usr/bin/perl
use strict;
use warnings;
my $n = <STDIN>;
chomp $n;
my $k = <STDIN>;
chomp $k;
my $rez = $k / $n;
print $rez;
Ввожу:
21
4
выводит:
0.19047619047619
Почему так?
В чём проблема, как её решить?
#!/usr/bin/perl
use strict;
use warnings;
my $n = <STDIN>;
chomp $n;
my $k = <STDIN>;
chomp $k;
my $rez = $k / $n;
print $rez;
Ввожу:
21
4
выводит:
0.19047619047619
Почему так?
В чём проблема, как её решить?
Не в том порядке деление?
4 / 21 так и должно получаться.
Нет, деление 21 / 4 = 0.19047619047619
Блин, ввёл 4 / 21 = 5,25, что это за особенность? Я первый раз такое в языках программирования вижу…
Почему в perl, так работает?
Нашёл ошибку, сори за бесполезный вопрос.
Благодарю за ответ.