提出 #2272998


ソースコード 拡げる

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.

提出情報

提出日時
問題 A - 高橋くんと年齢
ユーザ luogu_bot5
言語 Pascal (FPC 2.6.2)
得点 100
コード長 226 Byte
結果
実行時間 0 ms
メモリ 128 KB

コンパイルエラー

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

ジャッジ結果

セット名 Sample All
得点 / 配点 0 / 0 100 / 100
結果
× 4
× 24
セット名 テストケース
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
ケース名 結果 実行時間 メモリ
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