Problem:
Score: 300 points

Problem Statement

AtCoder Mart sells 1000000 of each of the six items below:

Riceballs, priced at 100 yen (the currency of Japan) each

Sandwiches, priced at 101 yen each

Cookies, priced at 102 yen each

Cakes, priced at 103 yen each

Candies, priced at 104 yen each

Computers, priced at 105 yen each

Takahashi wants to buy some of them that cost exactly X yen in total.
Determine whether this is possible.

(Ignore consumption tax.)

Constraints

1 \leq X \leq 100000

X is an integer.

Input

Input is given from Standard Input in the following format:

X

Output

If it is possible to buy some set of items that cost exactly X yen in total, print 1; otherwise, print 0.

Sample Input 1

615

Sample Output 1

1

For example, we can buy one of each kind of item, which will cost 100+101+102+103+104+105=615 yen in total.

Sample Input 2

217

Sample Output 2

0

No set of items costs 217 yen in total.

Solution in Perl (v5.18.2) (judge verdict: Wrong Answer)

#! /usr/bin/env perl

use strict;
use warnings;

my $x = <>;
chomp $x;

my $count_MAX = 1000000;
my $count = 0;
my $value = 0;

my $x_cd = $x%100; #下2桁
my @atmp = (1 ..5);
my @array =  sort {$b <=> $a} @atmp;

my $tmp = $x_cd;

for my $i (@array){
    $count += $tmp/$i;
    #print("$count\n");
    if($tmp% $i != 0){
        $tmp = $tmp % $i;
    }else{
        $tmp = 0;
        last;
    }
}

if($tmp != 0){
    print("0\n");
}
if($x - $count *100 >=0){
    print("1\n");
}
else{
    print("0\n");
}