Submission #1986432

Source Code Expand

var
  mt, t, x: int64;
begin
  read(x);
  for t := x downto 1 do
  if 2 * x > t * (t - 1) then
  begin
    mt := t;
    break;
  end;
  writeln(mt);
end.

Submission Info

Submission Time
Task C - Go Home
User masakt
Language Pascal (FPC 2.6.2)
Score 200
Code Size 164 Byte
Status AC
Exec Time 970 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 200 / 200
Status
AC × 3
AC × 18
Set Name Test Cases
Sample 0_000.txt, 0_001.txt, 0_002.txt
All 0_000.txt, 0_001.txt, 0_002.txt, 1_003.txt, 1_004.txt, 1_005.txt, 1_006.txt, 1_007.txt, 1_008.txt, 1_009.txt, 1_010.txt, 1_011.txt, 1_012.txt, 1_013.txt, 1_014.txt, 1_015.txt, 1_016.txt, 1_017.txt
Case Name Status Exec Time Memory
0_000.txt AC 0 ms 128 KB
0_001.txt AC 0 ms 128 KB
0_002.txt AC 0 ms 128 KB
1_003.txt AC 970 ms 128 KB
1_004.txt AC 970 ms 128 KB
1_005.txt AC 0 ms 128 KB
1_006.txt AC 970 ms 128 KB
1_007.txt AC 970 ms 128 KB
1_008.txt AC 970 ms 128 KB
1_009.txt AC 970 ms 128 KB
1_010.txt AC 970 ms 128 KB
1_011.txt AC 970 ms 128 KB
1_012.txt AC 970 ms 128 KB
1_013.txt AC 970 ms 128 KB
1_014.txt AC 970 ms 128 KB
1_015.txt AC 970 ms 128 KB
1_016.txt AC 970 ms 128 KB
1_017.txt AC 970 ms 128 KB