比赛代码 - COGS

比赛	20160303	评测结果	AAAAAAATTT
题目名称	同余方程	最终得分	70
用户昵称	Twist Fate	运行时间	3.740 s
代码语言	Pascal	内存使用	0.15 MiB
提交时间	2016-03-03 19:46:55

显示代码纯文本

program cyen;
var
	i,x,a,b:int64;
begin
	assign(input,'mod.in');	reset(input);
	assign(output,'mod.out');	rewrite(output);
	readln(a,b);
	i:=1;
	repeat
		if (i  mod a=0) then begin
			writeln(i div a);
			break;
		end;
		i:=i+b;
	until i=20000000;
	close(input);	close(output);
end.