记录编号 | 233390 | 评测结果 | AAAAAAAAAA | ||
---|---|---|---|---|---|
题目名称 | 大整数取模 | 最终得分 | 100 | ||
用户昵称 | グッド大きな萌菌 | 是否通过 | 通过 | ||
代码语言 | Pascal | 运行时间 | 0.000 s | ||
提交时间 | 2016-03-04 20:49:01 | 内存使用 | 0.17 MiB | ||
program bigint; var ch:char; n:string; ans,m:int64; l,i,j:longint; begin assign(input,'bigint.in');reset(input); assign(output,'bigint.out');rewrite(output); read(ch); while ch<>' ' do begin n:=n+ch; read(ch); end; readln(m); l:=length(n); for i:=1 to l do begin ans:=(ans*10+ord(n[i])-48)mod m; end; writeln(ans); close(input);close(output); end.