#!/usr/bin/perl use strict; use warnings; my $k = <>; my $s = <>; $k = 100 - $k; $k /= 100; my $ans = $s / $k; $ans = int $ans; print "$ans\n"; exit;