Submission #691543

---

Source Code Expand

#! /usr/bin/perl

$m = <STDIN>;
$km = $m / 1000;
$res = 0;

if ( $km < 0.1) {
	$res = "00";
}else if( $km < 5){
	$res = $km * 10;
	if ($res < 10){
		$res = "0".$res;
	}
}else if( $km < 30){
	$res = $km + 50;
}else if( $km < 70){
	$res = ($km - 30)/5 + 80;
}else{
	$res = 89;
}

print $res;

Submission Info

Compile Error

syntax error at ./Main.pl line 9, near "else if"
syntax error at ./Main.pl line 14, near "}"
./Main.pl had compilation errors.

Judge Result