Submission #3095264


Source Code Expand

var
	c,n,i,a:Longint;
	s:array[1..9]of Longint=(0,1,0,1,2,3,0,1,0);
begin
	read(n);
	for i:=1 to n do begin
		read(a);
		inc(c,s[a]);
	end;
	writeln(c);
end.

Submission Info

Submission Time
Task B - 花占い
User kotatsugame
Language Pascal (FPC 2.6.2)
Score 100
Code Size 169 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 All
Score / Max Score 100 / 100
Status
AC × 20
Set Name Test Cases
All sample_01.txt, sample_02.txt, test_1.txt, test_112358.txt, test_1379137913.txt, test_1414213562.txt, test_1732151817.txt, test_2.txt, test_2236167977.txt, test_2645751311.txt, test_3.txt, test_3141592653.txt, test_4.txt, test_5.txt, test_6.txt, test_6666666666.txt, test_7.txt, test_73.txt, test_8.txt, test_9.txt
Case Name Status Exec Time Memory
sample_01.txt AC 0 ms 128 KB
sample_02.txt AC 0 ms 128 KB
test_1.txt AC 0 ms 128 KB
test_112358.txt AC 0 ms 128 KB
test_1379137913.txt AC 0 ms 128 KB
test_1414213562.txt AC 0 ms 128 KB
test_1732151817.txt AC 0 ms 128 KB
test_2.txt AC 0 ms 128 KB
test_2236167977.txt AC 0 ms 128 KB
test_2645751311.txt AC 0 ms 128 KB
test_3.txt AC 0 ms 128 KB
test_3141592653.txt AC 0 ms 128 KB
test_4.txt AC 0 ms 128 KB
test_5.txt AC 0 ms 128 KB
test_6.txt AC 0 ms 128 KB
test_6666666666.txt AC 0 ms 128 KB
test_7.txt AC 0 ms 128 KB
test_73.txt AC 0 ms 128 KB
test_8.txt AC 0 ms 128 KB
test_9.txt AC 0 ms 128 KB