Submission #2200687

Source Code Expand

var h:char;
    i:char;
    n:longint;
    a:array['A'..'Z']of integer;
 begin
 n:=1;
  for i:='A' to 'Z' do
   begin
    a[i]:=n;
    n:=n+1;
   end;
   readln(h);
   writeln(a[h]);
 end.

Submission Info

Submission Time
Task A - A
User luogu_bot1
Language Pascal (FPC 2.6.2)
Score 100
Code Size 201 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 × 5
Set Name Test Cases
all A.txt, B.txt, C.txt, D.txt, E.txt
Case Name Status Exec Time Memory
A.txt AC 0 ms 128 KB
B.txt AC 0 ms 128 KB
C.txt AC 0 ms 128 KB
D.txt AC 0 ms 128 KB
E.txt AC 0 ms 128 KB