結果

問題 No.2908 Strange Online Judge (Extra)
ユーザー 👑 Mizar
提出日時 2024-08-28 02:02:43
言語 Text
(cat 8.3)
結果
AC  
実行時間 1 ms / 2,000 ms
コード長 805 bytes
コンパイル時間 270 ms
コンパイル使用メモリ 5,504 KB
実行使用メモリ 5,376 KB
最終ジャッジ日時 2024-09-27 22:35:51
合計ジャッジ時間 4,478 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 42
権限があれば一括ダウンロードができます

ソースコード

diff # 

$1=K*K      # $1 := K**2+1;
$1=$1+1
$0=K        # $0 := K;
$2=1        # $2 := 1;
$3=N/K      # $3 := N/K;
while$0<=$3 # if $0<=(N/K):
  $2=$0     #   $1,$0,$2 := ($1*K+$0),($1),($0);
  $0=$1
  $1=$0*K
  $1=$1+$2
end         # end
if$0<=N     # if $0<=N:
  $3=N/$0   #   $3 := N/$0+1;
  $3=$3+1
  $1=$1*$3  #   $1 := $1*$3+$0;
  $1=$1+$0
  $0=$0*$3  #   $0 := $0*$3+$2;
  $0=$0+$2
end         # end
$2=$1-$0    # $0,$2 := ($0*N),($1-$0);
$0=$0*N
ifM==0      # if M==0:
  $2=$2+K   #   $0 := $0-($2+K-1)/K;
  $2=$2-1
  $2=$2/K
  $0=$0-$2
end         # end
ifM>1       # if M>1:
  $3=M-1    #   $3 := M-1;
  $4=$2/K   #   $0 := $0+($2/K)*(M-1);
  $4=$4*$3
  $0=$0+$4
  $2=$2%K   #   $0 := $0+($2%K)*(M-1)/K;
  $2=$2*$3
  $2=$2/K
  $0=$0+$2
end         # end
$0=$0/$1    # return ($0/$1+N);
$0=$0+N
return$0
0