結果
問題 | No.292 芸名 |
ユーザー |
![]() |
提出日時 | 2016-07-31 19:51:48 |
言語 | Fortran (gFortran 14.2.0) |
結果 |
AC
|
実行時間 | 2 ms / 2,000 ms |
コード長 | 445 bytes |
コンパイル時間 | 397 ms |
コンパイル使用メモリ | 31,872 KB |
実行使用メモリ | 6,820 KB |
最終ジャッジ日時 | 2024-11-06 21:35:19 |
合計ジャッジ時間 | 1,085 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 10 |
ソースコード
character*50::S integer::t,u,length read*, S,t,u length = LEN_TRIM(S) t = t+1 u = u+1 if(t.eq.u) then S(t:length-1) = S(t+1:length) S(length:length)='' else if(t.lt.u) then S(t:length-1) = S(t+1:length) S(u-1:length-2) = S(u:length-1) else S(u:length-1) = S(u+1:length) S(t-1:length-2) = S(t:length-1) end if S(length-1:length)='' end if print '(a)',S end program