记录编号 233390 评测结果 AAAAAAAAAA
题目名称 大整数取模 最终得分 100
用户昵称 Gravatarグッド大きな萌菌 是否通过 通过
代码语言 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.