Submission #3764899


Source Code Expand

var
  k,a,b,s:int64;
begin
  readln(k,a,b);
  if a>=k then begin writeln(1);halt; end;
  if b>=a then begin writeln(-1);halt; end;
  if ((k-a) mod (a-b))>0 then s:=1;
  writeln(((k-a) div (a-b)+s)*2+1);
end.

Submission Info

Submission Time
Task A - Kaiden
User luogu_bot5
Language Pascal (FPC 2.6.2)
Score 100
Code Size 217 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 × 3
AC × 13
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 AC 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 AC 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