my $data = <STDIN>;
my (@data) = split (" ", $data);

my $n = shift (@data);
my $m = shift (@data);
my $a = shift (@data);

my $ma = $m/$a;
my $na = $n/$a;

if (int($ma) != $ma) {
    $ma = int($ma) +1;          
}

if (int($na) != $na) {
    $na = int($na) +1; 
}

$x = int($ma*$na);
print $x;
[download]

#This script solves the problem of counting the amount of a*a sized block to cover the surface area of the city square, sized n*m.

When i check n = 1000000000, m = 1000000000, a = 1 i get a result x = 1e+18 instead of 1000000000000000000, despite the fact that i use int operator. could anyone help with printing the exact number?

thanks in advance, the rest cases pass ok.

Integer has an upper limit. Perl automatically converts to float if integer cannot be used. I was able to get the desired output with bigint:

#!/usr/bin/perl
use warnings;
use strict;

my ($n, $m, $i) = split ' ', <>;
my $ma = $m / $i;
my $na = $n / $i;
$ma = int($ma) + 1 if int $ma != $ma;
$na = int($na) + 1 if int $na != $na;

use bigint;
my $x = int($ma * $na);
print 0 + $x, "\n";
[download]

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Try printf.

--MidLifeXis