rofn123

var n : int64;beginread(n);n := n mod 5;if (n=0) or (n=2) then write('CY')else write('SK');end.  SK, CY1 : SK2 : 1-1 CY3 : 1-1-1 SK4 : 4 SK5 : 1-4, 4-1 CY6 : 4-1-1 SK7 : 1-4-1-1 CY8 : 1-1-4-1-1... SK9 : SK10 : CY11 : SK12 : 4-1-1-1-4 CY13 : ....16 : SK17 : 4-1-(12) CY18 : 1-4-4-1-(8) SK 위의 결과를 보면5로 나누었을 때 나머지가 1,2,3,4,0 일 때1,3,4 인 경우 SK 가 이기며2,0 인 경우 CY가 이깁니다.

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. 풀이 : 문자별로 입력된 개수 만큼 + 을 해준..