結果
問題 |
No.56 消費税
|
ユーザー |
![]() |
提出日時 | 2018-12-08 10:21:32 |
言語 | Perl (5.40.0) |
結果 |
WA
|
実行時間 | - |
コード長 | 187 bytes |
コンパイル時間 | 209 ms |
コンパイル使用メモリ | 6,688 KB |
実行使用メモリ | 6,948 KB |
最終ジャッジ日時 | 2024-09-14 04:24:18 |
合計ジャッジ時間 | 1,199 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 1 WA * 3 |
other | WA * 23 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
use v5.16; # my $input = <>; my $input = "25 16"; chomp $input; my ( $yukicoda, $tax ) = split / /, $input; my $add_tax = $yukicoda * ( $tax / 100 ); say int( $yukicoda + $add_tax );