Submission #2255137


Source Code Expand

var n,m,i,j:longint;
    x:array[1..3]of longint;
 begin
  readln(x[1],x[2],x[3]);
  for i:=1 to 2 do
   for j:=1+i to 3 do
    if x[i]<x[j] then
     begin
      n:=x[i];
      x[i]:=x[j];
      x[j]:=n;
     end;
  writeln(x[2]);
 end.

Submission Info

Submission Time
Task A - 高橋くんと年齢
User luogu_bot1
Language Pascal (FPC 2.6.2)
Score 100
Code Size 250 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 100 / 100
Status
AC × 4
AC × 24
Set Name Test Cases
Sample subtask0_sample_01.txt, subtask0_sample_02.txt, subtask0_sample_03.txt, subtask0_sample_04.txt
All 0.txt, 1.txt, 10.txt, 11.txt, 12.txt, 13.txt, 14.txt, 15.txt, 16.txt, 17.txt, 18.txt, 19.txt, 2.txt, 3.txt, 4.txt, 5.txt, 6.txt, 7.txt, 8.txt, 9.txt, subtask0_sample_01.txt, subtask0_sample_02.txt, subtask0_sample_03.txt, subtask0_sample_04.txt
Case Name Status Exec Time Memory
0.txt AC 0 ms 128 KB
1.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
17.txt AC 0 ms 128 KB
18.txt AC 0 ms 128 KB
19.txt AC 0 ms 128 KB
2.txt AC 0 ms 128 KB
3.txt AC 0 ms 128 KB
4.txt AC 0 ms 128 KB
5.txt AC 0 ms 128 KB
6.txt AC 0 ms 128 KB
7.txt AC 0 ms 128 KB
8.txt AC 0 ms 128 KB
9.txt AC 0 ms 128 KB
subtask0_sample_01.txt AC 0 ms 128 KB
subtask0_sample_02.txt AC 0 ms 128 KB
subtask0_sample_03.txt AC 0 ms 128 KB
subtask0_sample_04.txt AC 0 ms 128 KB