#!/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";
In reply to Re^5: Input data problem
by choroba
in thread Input data problem
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |