Submission #3812913


Source Code Expand

var
  n,m,i,j,a,b,k,z:qword;
begin
  readln(k,a,b);
  if a>=k then begin  write(1);exit;end;
  if a<=b then begin  write(-1);exit;end;
  m:=a-b;
  z:=(k div m)*2+1;
  if k mod m=0 then z:=z-2;
  write(Z);
end.

Submission Info

Submission Time
Task A - Kaiden
User luogu_bot1
Language Pascal (FPC 2.6.2)
Score 0
Code Size 221 Byte
Status WA
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 0 / 100
Status
AC × 2
WA × 1
AC × 11
WA × 2
Set Name Test Cases
Sample a01, a02, a03
All a01, a02, a03, b04, b05, b06, b07, b08, b09, b10, b11, b12, b13
Case Name Status Exec Time Memory
a01 AC 0 ms 128 KB
a02 AC 0 ms 128 KB
a03 WA 0 ms 128 KB
b04 AC 0 ms 128 KB
b05 AC 0 ms 128 KB
b06 AC 0 ms 128 KB
b07 AC 0 ms 128 KB
b08 WA 0 ms 128 KB
b09 AC 0 ms 128 KB
b10 AC 0 ms 128 KB
b11 AC 0 ms 128 KB
b12 AC 0 ms 128 KB
b13 AC 0 ms 128 KB