提出 #6304172

ソースコード 拡げる

var
	L,R,ans,tmp,M,i,j:Longint;
begin
	read(L,R);
	M:=2019;
	ans:=M;
	if L+670<=R then begin
		writeln(0);
		exit;
	end;
	for i:=L to R do begin
		for j:=1 to 50 do begin
			if i+j>R then break;
			tmp:=i mod M*(i+j)mod M;
			if ans>tmp then ans:=tmp;
			if ans=1 then begin
				writeln(1);
				exit;
			end;
		end;
	end;
	writeln(ans);
end.

提出情報

提出日時
問題 C - Remainder Minimization 2019
ユーザ kotatsugame
言語 Pascal (FPC 2.6.2)
得点 300
コード長 363 Byte
結果 AC
実行時間 0 ms
メモリ 128 KiB

コンパイルエラー

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

ジャッジ結果

セット名 All Sample
得点 / 配点 300 / 300 0 / 0
結果
AC × 16
AC × 2
セット名 テストケース
All max_ans, max_range, max_val, min_diff_01, min_diff_02, min_diff_03, min_diff_04, min_diff_05, one_01, one_02, random_max_01, random_max_02, sample_01, sample_02, stride_zero_01, stride_zero_02
Sample sample_01, sample_02
ケース名 結果 実行時間 メモリ
max_ans AC 0 ms 128 KiB
max_range AC 0 ms 128 KiB
max_val AC 0 ms 128 KiB
min_diff_01 AC 0 ms 128 KiB
min_diff_02 AC 0 ms 128 KiB
min_diff_03 AC 0 ms 128 KiB
min_diff_04 AC 0 ms 128 KiB
min_diff_05 AC 0 ms 128 KiB
one_01 AC 0 ms 128 KiB
one_02 AC 0 ms 128 KiB
random_max_01 AC 0 ms 128 KiB
random_max_02 AC 0 ms 128 KiB
sample_01 AC 0 ms 128 KiB
sample_02 AC 0 ms 128 KiB
stride_zero_01 AC 0 ms 128 KiB
stride_zero_02 AC 0 ms 128 KiB