#!/usr/bin/perl
use strict;
my $t = 35.23;
print $t * 100, ", ", int("3523"), ", ", int($t * 100), ", ", int("" . ($t * 100)), "\n";
не, perlfaq4 я читал, но всё равно, "осадок остался..."
#!/usr/bin/perl
use strict;
my $t = 35.23;
print $t * 100, ", ", int("3523"), ", ", int($t * 100), ", ", int("" . ($t * 100)), "\n";
не, perlfaq4 я читал, но всё равно, "осадок остался..."
Ответ на:
комментарий
от anonymous
Ответ на:
комментарий
от dilmah
Ответ на:
комментарий
от dilmah
Ответ на:
комментарий
от berrywizard