Submission #3018647


Source Code Expand

var
i,j,c,d,e,b:longint;
s,s1,s2,s3:string;
begin
readln(s);
readln(e);
e:=e mod length(s);
if e=0 then e:=length(s);
writeln(s[e]);
end.

Submission Info

Submission Time
Task B - とても長い文字列
User luogu_bot1
Language Pascal (FPC 2.6.2)
Score 100
Code Size 146 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 sub All
Score / Max Score 30 / 30 70 / 70
Status
AC × 12
AC × 24
Set Name Test Cases
sub test_01A.txt, test_02A.txt, test_04A.txt, test_05A.txt, test_07A.txt, test_09A.txt, test_11A.txt, test_13A.txt, test_14A.txt, test_15A.txt, test_17A.txt, test_18A.txt
All sample_01.txt, sample_02.txt, sample_03.txt, test_01A.txt, test_02A.txt, test_03.txt, test_04A.txt, test_05A.txt, test_06.txt, test_07A.txt, test_08.txt, test_09A.txt, test_10.txt, test_11A.txt, test_12.txt, test_13A.txt, test_14A.txt, test_15A.txt, test_16.txt, test_17A.txt, test_18A.txt, sample_01.txt, sample_02.txt, sample_03.txt
Case Name Status Exec Time Memory
sample_01.txt AC 0 ms 128 KB
sample_02.txt AC 0 ms 128 KB
sample_03.txt AC 0 ms 128 KB
test_01A.txt AC 0 ms 128 KB
test_02A.txt AC 0 ms 128 KB
test_03.txt AC 0 ms 128 KB
test_04A.txt AC 0 ms 128 KB
test_05A.txt AC 0 ms 128 KB
test_06.txt AC 0 ms 128 KB
test_07A.txt AC 0 ms 128 KB
test_08.txt AC 0 ms 128 KB
test_09A.txt AC 0 ms 128 KB
test_10.txt AC 0 ms 128 KB
test_11A.txt AC 0 ms 128 KB
test_12.txt AC 0 ms 128 KB
test_13A.txt AC 0 ms 128 KB
test_14A.txt AC 0 ms 128 KB
test_15A.txt AC 0 ms 128 KB
test_16.txt AC 0 ms 128 KB
test_17A.txt AC 0 ms 128 KB
test_18A.txt AC 0 ms 128 KB