Yukicoder No.373 かけ算と割った余り
python
#!/usr/bin/env python3
a, b, c, d = map(int,input().split())
print(a * b * c % d)
perl 45byte
($a,$b,$c,$d)=split$",<>;print $a*$b%$d*$c%$d
tailsさん perl 35byte
http://yukicoder.me/submissions/95737
use bigint;$/=$";print<>*1*<>*<>%<>
$/=$"
は区切り文字を改行から空白にして、行ごとでなく単語ごとに読むようにする。