概要
表題のプログラミング言語でAtCoder Beginners Selectionを実施記録した際の記録です
基本文法の学習が目的です
https://atcoder.jp/contests/abs
AtCoder Beginners Selectionとは？
このコンテストは、「AtCoderに登録したけど何をしていいか分からない・・・！」という人に向けて作られた、初心者向け問題集です。
問題は、dr.kenさんの、「AtCoder に登録したら次にやること ～ これだけ解けば十分闘える！過去問精選 10 問 ～」から選出しています。
基本的には以下ができれば大体の問題を解けるようになっている。
- 標準入力
- 標準出力
- 四則演算
- 条件分岐
- 文字列操作
- ループ
- 配列の操作
- 全通りの探索
- 組み込み関数等の利用
- ソート
- 集合
- 二次元配列の操作
PracticeA - Welcome to AtCoder
PracticeA - Welcome to AtCoder
問題文
高橋君はデータの加工が行いたいです。
整数 a,b,cと、文字列 s が与えられます。 a+b+c の計算結果と、文字列 s を並べて表示しなさい。制約
1≤a,b,c≤1,000
1≤∣s∣≤100入力
入力は以下の形式で与えられる。
a
b c
s出力
a+b+c と s を空白区切りで 1 行に出力せよ。
基本的な標準入力、標準出力、四則演算ができればOK
program main
implicit none
integer :: a, b, c, sum
character(100) :: s
read *, a
read *, b, c
read *, s
sum = a + b + c
write (*, '(i0, " ", a)') sum, s
end program main
ABC086A - Product
問題文
シカのAtCoDeerくんは二つの正整数 a,b を見つけました。 a と b の積が偶数か奇数か判定してください。制約
1 ≤ a,b ≤ 10000
a,b は整数入力
入力は以下の形式で標準入力から与えられる。
a b出力
積が奇数なら Odd と、 偶数なら Even と出力せよ。
基本的な標準入力、標準出力、四則演算、条件分岐ができればOK
program main
integer :: a, b
! 入力を受け取る
read(*, *) a, b
! 積が偶数か奇数か判定する
if (mod(a*b, 2) == 0) then
! 偶数の場合
write(*,'(a)') "Even"
else
! 奇数の場合
write(*,'(a)') "Odd"
end if
end program
ABC081A - Placing Marbles
問題文
すぬけ君は 1,2,3 の番号がついた 3 つのマスからなるマス目を持っています。各マスには 0 か 1 が書かれており、マス i には si が書かれています。
すぬけ君は 1 が書かれたマスにビー玉を置きます。 ビー玉が置かれるマスがいくつあるか求めてください。制約
s1 ,s2 ,s3 は 1 あるいは 0入力
入力は以下の形式で標準入力から与えられる。
s1s2s3出力
答えを出力せよ。入力例 1
101出力例 1
2
基本的な標準入力、標準出力、文字列操作ができればOK
program main
! 変数の宣言
integer :: s1, s2, s3
integer :: cnt
! 入力を受け取る
integer :: s
read(*, *) s
s1 = mod(s, 10)
s2 = mod(s / 10, 10)
s3 = s / 100
! 1が書かれたマスの数をカウントする
cnt = 0
if (s1 == 1) cnt = cnt + 1
if (s2 == 1) cnt = cnt + 1
if (s3 == 1) cnt = cnt + 1
! 答えを出力する
write(*, *) cnt
end program
ABC081B - Shift only
問題文
黒板に N 個の正の整数 A1,...,AN が書かれています．
すぬけ君は，黒板に書かれている整数がすべて偶数であるとき，次の操作を行うことができます．
黒板に書かれている整数すべてを，2 で割ったものに置き換える．
すぬけ君は最大で何回操作を行うことができるかを求めてください．制約
1≤N≤200
1≤Ai≤10^9入力
入力は以下の形式で標準入力から与えられる。
N
A1 A2 ... AN出力
すぬけ君は最大で何回操作を行うことができるかを出力せよ．入力例 1
3
8 12 40出力例 1
2
基本的な標準入力、標準出力、四則演算、ループ、条件分岐、配列の操作ができればOK
program main
! 変数の宣言
integer i,N,count_min
integer,allocatable :: A(:)
read(*,*) N
allocate(A(N))
read(*,*) (A(i),i=1,N)
! 計算
count_min = 1000000000
do i = 1, N
count = 0
do while (mod(A(i), 2) == 0)
A(i) = A(i) / 2
count = count + 1
end do
if (count < count_min) then
count_min = count
endif
end do
! 結果の出力
write(*, *) count_min
end program main
ABC087B - Coins
問題文
あなたは、500 円玉を A 枚、100 円玉を B 枚、50 円玉を C 枚持っています。 これらの硬貨の中から何枚かを選び、合計金額をちょうど X 円にする方法は何通りありますか。
同じ種類の硬貨どうしは区別できません。2 通りの硬貨の選び方は、ある種類の硬貨についてその硬貨を選ぶ枚数が異なるとき区別されます。制約
0≤A,B,C≤50
A+B+C≥1
50≤X≤20,000
A,B,C は整数である
X は 50 の倍数である入力
入力は以下の形式で標準入力から与えられる。
A
B
C
X出力
硬貨を選ぶ方法の個数を出力せよ。
基本的な標準入力、標準出力、四則演算、ループ、条件分岐、配列の操作、全通りの探索ができればOK
program main
integer :: a, b, c, x
integer :: count
! 入力
read(*,*) a
read(*,*) b
read(*,*) c
read(*,*) x
! 硬貨を選ぶ方法の個数をカウントする
count = 0
do i = 0, a
do j = 0, b
do k = 0, c
if (i * 500 + j * 100 + k * 50 == x) count = count + 1
end do
end do
end do
! 結果を出力
write(*,*) count
end program
ABC083B - Some Sums
問題文
1 以上 N 以下の整数のうち、10 進法での各桁の和が A 以上 B 以下であるものの総和を求めてください。制約
1≤N≤10^4
1≤A≤B≤36
入力はすべて整数である入力
入力は以下の形式で標準入力から与えられる。
N A B出力
1 以上 N 以下の整数のうち、10 進法での各桁の和が A 以上 B 以下であるものの総和を出力せよ。
基本的な標準入力、標準出力、四則演算、ループ、条件分岐、配列の操作、組み込み関数の利用、ができればOK
program main
implicit none
integer :: N, A, B
integer :: i, j, k, digit_sum, sum
read(*, *) N, A, B
sum = 0
do i = 1, N
digit_sum = 0
j = i
do k = 1, 5
digit_sum = digit_sum + mod(j, 10)
j = j / 10
end do
if (digit_sum >= A .and. digit_sum <= B) sum = sum + i
end do
print *, sum
end program main
ABC088B - Card Game for Two
問題文
N 枚のカードがあります. i 枚目のカードには, ai という数が書かれています.
Alice と Bob は, これらのカードを使ってゲームを行います. ゲームでは, Alice と Bob が交互に 1 枚ずつカードを取っていきます. Alice が先にカードを取ります.
2 人がすべてのカードを取ったときゲームは終了し, 取ったカードの数の合計がその人の得点になります. 2 人とも自分の得点を最大化するように最適な戦略を取った時, Alice は Bob より何点多く取るか求めてください.制約
N は 1 以上 100 以下の整数
ai(1≤i≤N) は 1 以上 100 以下の整数入力
入力は以下の形式で標準入力から与えられる.
N
a1 a2 a3 ... aN出力
両者が最適な戦略を取った時, Alice は Bob より何点多く取るかを出力してください.
基本的な標準入力、標準出力、四則演算、条件分岐、配列の操作、ループ、ソート、ができればOK
program main
implicit none
! 変数の宣言
integer :: N, i, sumA, sumB
integer,allocatable :: a(:)
read(*,*) N
allocate(a(N))
read(*,*) (a(i),i=1,N)
! sumA, sumB の計算
sumA = 0
sumB = 0
do i = 1, n
if (mod(i,2)==1) then
sumA = sumA + maxval(a)
else if (mod(i,2)==0) then
sumB = sumB + maxval(a)
end if
a(maxloc(a)) = 0
end do
! 出力
write(*,*) sumA - sumB
end program
ABC085B - Kagami Mochi
問題文
X 段重ねの鏡餅 (X≥1) とは、X 枚の円形の餅を縦に積み重ねたものであって、どの餅もその真下の餅より直径が小さい（一番下の餅を除く）もののことです。例えば、直径 10、8、6 センチメートルの餅をこの順に下から積み重ねると 3 段重ねの鏡餅になり、餅を一枚だけ置くと 1 段重ねの鏡餅になります。
ダックスフンドのルンルンは N 枚の円形の餅を持っていて、そのうち i 枚目の餅の直径は diセンチメートルです。これらの餅のうち一部または全部を使って鏡餅を作るとき、最大で何段重ねの鏡餅を作ることができるでしょうか。制約
1≤N≤100
1≤di≤100
入力値はすべて整数である。入力
入力は以下の形式で標準入力から与えられる。
N
d1
:
dN出力
作ることのできる鏡餅の最大の段数を出力せよ。入力例 1
4
10
8
8
6出力例 1
3
基本的な標準入力、標準出力、四則演算、ループ、配列、集合、ができればOK
program main
implicit none
integer :: N, i, a, count
! 標準入力から n を読み込む
integer,allocatable :: d(:)
read(*,*) N
allocate(d(N))
read(*,*) (d(i),i=1,N)
! 最大段数を求める
count = 0
do i=1,n
a = maxval(d)
d(maxloc(d))=0
if(a .ne. maxval(d)) then
count=count+1
endif
enddo
! 最大段数を標準出力に出力する
write(*,*) count
end program
ABC085C - Otoshidama
問題文
日本でよく使われる紙幣は、10000 円札、5000 円札、1000 円札です。以下、「お札」とはこれらのみを指します。
青橋くんが言うには、彼が祖父から受け取ったお年玉袋にはお札が N 枚入っていて、合計で Y 円だったそうですが、嘘かもしれません。このような状況がありうるか判定し、ありうる場合はお年玉袋の中身の候補を一つ見つけてください。なお、彼の祖父は十分裕福であり、お年玉袋は十分大きかったものとします。制約
1≤N≤2000
1000≤Y≤2×10^7
N は整数である。
Y は 1000 の倍数である。入力
入力は以下の形式で標準入力から与えられる。
N Y出力
N 枚のお札の合計金額が Y 円となることがありえない場合は、-1 -1 -1 と出力せよ。
N 枚のお札の合計金額が Y 円となることがありうる場合は、そのような N 枚のお札の組み合わせの一例を「10000 円札 x 枚、5000 円札 y 枚、1000 円札 z 枚」として、x、y、z を空白で区切って出力せよ。複数の可能性が考えられるときは、そのうちどれを出力してもよい。入力例 1
9 45000出力例 1
4 0 5
基本的な標準入力、標準出力、四則演算、ループができればOK
program main
implicit none
! 入力を受け取る
integer :: i, j, k, x=-1, y=-1, z=-1
integer :: n, yy
read(*,*) n, yy
do i=0,n
do j=0,n-i
k = n - i - j
if(10000*i+5000*j+1000*k == yy) then
x=i
y=j
z=k
exit
endif
enddo
enddo
! N枚のお札の組み合わせを出力する
write(*,*) x, y, z
end program
ABC049C - 白昼夢
問題文
英小文字からなる文字列 S が与えられます。 Tが空文字列である状態から始め、以下の操作を好きな回数繰り返すことで S=T とすることができるか判定してください。制約
1≦∣S∣≦10^5
S は英小文字からなる。入力
入力は以下の形式で標準入力から与えられる。
S出力
S=T とすることができる場合 YES を、そうでない場合 NO を出力せよ。入力例 1
erasedream出力例 1
YES
基本的な標準入力、標準出力、文字列操作ができればOK
program main
implicit none
integer len_s, frag, count, i
character s*(10**6), s_rev*(10**6), a(1:4)*7
a(1) = "maerd"
a(2) = "esare"
a(3) = "resare"
a(4) = "remaerd"
read( *, * ) s
len_s = len_trim(s)
!文字列を反転させる
s_rev = ""
do i = 1, len_s
s_rev(len_s + 1 - i:len_s + 1 - i) = s(i:i)
enddo
do while( len_trim(s_rev) > 0 )
frag = 0
do i = 1, 4
if( index( s_rev, trim(a(i)) ) == 1 ) then
s_rev = s_rev( len_trim(a(i)) + 1: )
frag = 1
endif
enddo
if( frag == 0 ) then
write( *, * ) "NO"
call exit(0)
endif
enddo
write( *, * ) "YES"
end program
ABC086C - Traveling
問題文
シカのAtCoDeerくんは二次元平面上で旅行をしようとしています。 AtCoDeerくんの旅行プランでは、時刻 0 に 点 (0,0) を出発し、 1 以上 N 以下の各 i に対し、時刻tiに 点 (xi,yi) を訪れる予定です。
AtCoDeerくんが時刻 t に 点 (x,y) にいる時、 時刻 t+1 には 点 (x+1,y), (x−1,y), (x,y+1), (x,y−1) のうちいずれかに存在することができます。 その場にとどまることは出来ないことに注意してください。 AtCoDeerくんの旅行プランが実行可能かどうか判定してください。制約
1 ≤ N ≤ 10^5
0 ≤ xi ≤ 10^5
0 ≤ yi ≤ 10^5
1 ≤ ti ≤ 10^5
ti < ti+1 (1 ≤ i ≤ N−1)
入力は全て整数入力
入力は以下の形式で標準入力から与えられる。
N
t1 x1 y1
t2 x2 y2
:
tN xN yN出力
旅行プランが実行可能ならYesを、不可能ならNoを出力してください。入力例 1
2
3 1 2
6 1 1出力例 1
Yes入力例 2
1
2 100 100出力例 2
No
(0,0) にいる状態から 2 秒後に (100,100) にいるのは不可能です。入力例 3
2
5 1 1
100 1 1出力例 3
No
基本的な標準入力、標準出力、四則演算、ループ、二次元配列の操作、ができればOK
program main
implicit none
integer :: n
integer :: i, t, x, y
integer :: pt=0,px=0,py=0
read(*,*) n
do i = 1, n
read(*,*) t, x, y
if (abs(x-px)+abs(y-py) > t-pt) then
write(*,*) "No"
call exit(0)
end if
if (mod(t - pt - abs(x-px) - abs(y - py),2) /= 0) then
write(*,*) "No"
call exit(0)
end if
pt = t
px = x
py = y
end do
write(*,*) "Yes"
stop
end program
参考