結果

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

ソースコード

diff # 

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