Pascal 29713 브실이의 띠부띠부씰 컬렉션 (백준)
var a : array[1..90] of integer; i, j, n : Integer; c : char; b : array[1..12] of Char; begin b := 'BRONZESILVER'; readln(n); for i:=1 to n do begin read(c); a[byte(c)] := a[byte(c)] + 1; end; i:=1001; a[byte('E')] := a[byte('E')] div 2; a[byte('R')] := a[byte('R')] div 2; n := 12; for j:=1 to n do begin if a[byte(b[j])] < i then i := a[byte(b[j])]; end; write(i); end. 풀이 : 문자별로 입력된 개수 만큼 + 을 해준..
Pascal/BAEKJOON
2023. 11. 1. 02:45
공지사항
최근에 올라온 글
최근에 달린 댓글
- Total
- Today
- Yesterday
링크
TAG
- DFS
- 1835번
- Lazy Propagation
- java
- 그리디
- 그래프
- 브루트포스
- 백준
- 최대공약수
- 덱
- 정렬
- 누적 합
- 오프라인 쿼리
- 기하학
- PASCAL
- union
- 세그먼트 트리
- 최소 스패닝 트리
- BFS
- Segment Tree
- 1835
- C언어
- DP
- C++
- find
- 플로이드
- 스택
- Krustal
- 누적합
- XOR
| 일 | 월 | 화 | 수 | 목 | 금 | 토 |
|---|---|---|---|---|---|---|
| 1 | 2 | 3 | 4 | 5 | ||
| 6 | 7 | 8 | 9 | 10 | 11 | 12 |
| 13 | 14 | 15 | 16 | 17 | 18 | 19 |
| 20 | 21 | 22 | 23 | 24 | 25 | 26 |
| 27 | 28 | 29 | 30 |
글 보관함