Submission #3677910


Source Code Expand

var
	a,b,t:Longint;
begin
	read(a,b);
	if a<b then begin
		t:=b;
		b:=a;
		a:=t;
	end;
	if (a-b)mod 2=1 then begin
		writeln('No');
		exit;
	end;
	t:=(a-b)div 2;
	dec(a,t*3);
	dec(b,t);
	if(a<0)or(b<0)or(a mod 4<>0)or(b mod 4<>0)then writeln('No')else writeln('Yes');
end.

Submission Info

Submission Time
Task B - Colored Balls
User kotatsugame
Language Pascal (FPC 2.6.2)
Score 200
Code Size 291 Byte
Status AC
Exec Time 0 ms
Memory 128 KB

Compile Error

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

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 200 / 200
Status
AC × 3
AC × 19
Set Name Test Cases
Sample s1.txt, s2.txt, s3.txt
All 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt, 08.txt, 09.txt, 10.txt, 11.txt, 12.txt, 13.txt, 14.txt, 15.txt, 16.txt, s1.txt, s2.txt, s3.txt
Case Name Status Exec Time Memory
01.txt AC 0 ms 128 KB
02.txt AC 0 ms 128 KB
03.txt AC 0 ms 128 KB
04.txt AC 0 ms 128 KB
05.txt AC 0 ms 128 KB
06.txt AC 0 ms 128 KB
07.txt AC 0 ms 128 KB
08.txt AC 0 ms 128 KB
09.txt AC 0 ms 128 KB
10.txt AC 0 ms 128 KB
11.txt AC 0 ms 128 KB
12.txt AC 0 ms 128 KB
13.txt AC 0 ms 128 KB
14.txt AC 0 ms 128 KB
15.txt AC 0 ms 128 KB
16.txt AC 0 ms 128 KB
s1.txt AC 0 ms 128 KB
s2.txt AC 0 ms 128 KB
s3.txt AC 0 ms 128 KB