Submission #2272998


Source Code Expand

Copy
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_bot5
Language Pascal (FPC 2.6.2)
Score 100
Code Size 226 Byte
Status
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 Score / Max Score Test Cases
Sample 0 / 0 subtask0_sample_01.txt, subtask0_sample_02.txt, subtask0_sample_03.txt, subtask0_sample_04.txt
All 100 / 100 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 0 ms 128 KB
1.txt 0 ms 128 KB
10.txt 0 ms 128 KB
11.txt 0 ms 128 KB
12.txt 0 ms 128 KB
13.txt 0 ms 128 KB
14.txt 0 ms 128 KB
15.txt 0 ms 128 KB
16.txt 0 ms 128 KB
17.txt 0 ms 128 KB
18.txt 0 ms 128 KB
19.txt 0 ms 128 KB
2.txt 0 ms 128 KB
3.txt 0 ms 128 KB
4.txt 0 ms 128 KB
5.txt 0 ms 128 KB
6.txt 0 ms 128 KB
7.txt 0 ms 128 KB
8.txt 0 ms 128 KB
9.txt 0 ms 128 KB
subtask0_sample_01.txt 0 ms 128 KB
subtask0_sample_02.txt 0 ms 128 KB
subtask0_sample_03.txt 0 ms 128 KB
subtask0_sample_04.txt 0 ms 128 KB