rofn123

c언어 25830번 Microwave Mishap (백준)

rofn123 — Sat, 11 Apr 2026 09:40:02 +0900

#define l(x) s[0]=b/10+48;s[1]=b%10+48;write(1,s,x);
__libc_start_main(){
	char s[9];
    int p=-1,a,b;
    read(0,s,9);
    a=10*(s[0]-48)+s[1]-48;
    b=10*(s[3]-48)+s[4]-48;
    a=3600*a+60*(b-a)-b;
    s[2]=58;
    b=a/3600;l(3)
    b=a%3600/60;l(3)
    b=a%60;l(2)
    _Exit(0);
}main;

풀이 : 문자열

문자열로 입력을 받고 정수로 변환 한 다음 계산한다.

위의 c언어 코드는 아래의 pascal 코드로 만든 것

var s:string;a,b,c:int64;
begin
a:=0;b:=0;
readln(s);a:=10*(ord(s[1])-48)+ord(s[2])-48;b:=10*(ord(s[4])-48)+ord(s[5])-48;
c:=3600*a+60*(b-a)-b;
if c div 3600<10 then write(0);write(c div 3600,':');c:=c mod 3600;
if c div 60<10 then write(0);write(c div 60,':');
if c mod 60<10 then write(0);write(c mod 60);
end.

1. 문자열들을 분(a), 초(b)로 바꾼다.

2. a,b 를 이용해서 시간-분 으로 여겼을 때의 값에서 분-시간 으로 여겼을때의 값을 뺀 값을 구한다.

3. 형식에 맞게 출력합니다. 시간, 분, 초 순서대로 출력합니다.

4. 시간을 출력하려면 2에서 구한 값에 / 3600 을 (정수형 나누기)

5. 분을 출력하려면 2에서 구한값에 % 3600 을 한 다음 / 60 을 (정수형 나누기)

6. 초를 출력하려면 2에서 구한값에 % 60 을 한 것을 출력

https://www.acmicpc.net/problem/25830

c언어 29145번 Можно и отдохнуть (백준)

rofn123 — Sat, 11 Apr 2026 08:14:25 +0900

__libc_start_main(){
	char s[100000]; //입력을 받기위한 배열
    long long a[3],b,c,k,p=-1; //a[]는 a_i, b_i, c_i, b는 a[]용 index, c는 정답, p는 입력데이터를 읽기위한 index
    read(0,s,100000); //입력
    while(s[++p]>32); //문제에서의 n, 이 코드에선 n을 쓰지 않으니 그냥 넘어간다.
    while(s[++p]>32){k*=10;k+=s[p]+-48;} //k 계산
    while(s[++p]) { //a_i, b_i, c_i 입력받고 계산, s[++p]의 값이 0(이 칸부터 입력이 없었다는 의미!)이면 종료
    	if(s[p]>32){a[b]*=10;a[b]+=s[p]-48;} //문자 -> 정수
        else { //공백 또는 개행문자
        	++b; //다음 수로
            if(b==3) { //만약 a_i,b_i,c_i 전부 구했다면
            	if(k>=a[0]&&(k-a[0])%a[1]==0)c+=a[2];a[0]=a[1]=a[2]=b=0; //계산
            }
        }
        if(p==1e5-1) { //s[] 크기만큼 입력 받은 데이터를 전부 처리했다면 다음 입력을 받는다.
        	p=read(0,s,100000); //p에는 입력받은 byte 수가 전달된다.
            s[p]=0; //문자열의 끝을 나타내기위해 0을 대입한다. ex) 입력을 5byte 받았다면 p[0]부터 p[4] 까지, p[5] 부턴 이전에 입력받은 값이 있으므로 끝을 나타내기 위해 0을 대입한것
            if(!p)break;p=-1;//p가 0 초과라면 남은 입력데이터가 있다는것 아닐 시 반복문 종료
        }
   }
   p=0;if(c){while(c){s[p++]=48+c%10;c/=10;}}else s[p++]=48; //정수형을 출력하기위해 문자로 변환
   while(p--)write(1,&s[p],1); //정답 출력
   _Exit(0); //프로그램 종료
}main;

풀이 : 사칙연산, 수학

위 c언어 코드는 아래 pascal 코드를 c언어로 바꾼것이다.

var n,k,a,b,c,d:int64;
begin
read(n,k);d:=0;
repeat
n-=1;
read(a,b,c);
if (k>=a)and((k-a)mod b=0)then d+=c;
until n=0;write(d)
end.

핵심은 k>=a_i 이고 (k-a_i) mod b_i = 0 인 경우에서의 c_i 의 총합을 출력하는 것이다.

https://www.acmicpc.net/problem/29145

c언어 35423번 : SciComLove (2026) (백준)

rofn123 — Sat, 28 Mar 2026 15:00:58 +0900

https://www.acmicpc.net/problem/35423

__libc_start_main(){
    char s[60000],x[6]="SciCom",y[4]="Love";
    int a,t,b,n;a=n=0;
    while(t=read(0,s,60000)){
    	n+=t;
        while(t--)if(s[t]==76)++a;
    }
    
    b=(n-4*a)/6;
    for(n=0;n<6e4;)s[n++]=x[n%6];
    while(b>1e4){write(1,s,60000);b-=1e4;}
    if(b)write(1,s,6*b);
    
    for(n=0;n<6e4;)s[n++]=y[n%4];
    while(a>15e3){write(1,s,60000);a-=15e3;}
    if(a)write(1,s,4*a);
    
    _Exit(0);
}main;

풀이 : 구현, 문자열

1. SciCom, Love 각각의 문자열에서 중복되지 않는 알파벳을 골라 각 문자열의 개수를 구할 수 있다. 또한 하나의 문자열의 개수만 알아도, 전체 문자열의 길이를 가지고 나머지 문자열의 개수도 알아 낼 수 있다.

2. 문자열의 최대크기는 백만으로 문제에서 제시했다. char[1000000] 이런식으로 만들어도 되나, 메모리를 많이 차지하므로 6과 4의 공배수인 60000으로 잡았다, 여기서 더 적게 잡으면 read, write 호출 횟수가 많아져서 소요시간이 0ms을 초과할 수 있다.

3. read 를 이용하여 60000 byte 씩 끊어서 입력을 받는다. 위 코드에선 L 의 개수를 구해 각각의 문자열의 개수를 알아내려 하고 있다. 변수 n 에 주어진 문자열의 전체크기를 저장한다. 변수 a에 L 의 개수를 저장한다, 이것은 Love 문자열의 개수와 동일하다.

4. n과 a를 이용하여 SciCom 문자열의 개수를 b에 저장한다.

5. 무지성으로 write(1,"SciCom",6); 이것을 b만큼 반복하면 당연히 소요시간이 엄청나게 많이 나온다. 그러므로 입력받을 때 사용한 문자열 배열 s를 전부 SciCom 의 반복문자열로 변경한다. 그런 다음 b 개수만큼 출력한다. 한번에 최대 60000byte (SciCom을 만개씩) 출력한다.

6. Love 또한 5번에서 한 것 처럼 문자열 배열 s를 Love 의 반복문자열로 만들어 버린다음 a 개수만큼 출력한다. 한번에 최대 60000byte (Love를 1만5천개씩) 출력한다.

7. 프로그램을 종료한다.

c언어 17615번 볼 모으기 (백준)

rofn123 — Sun, 14 Sep 2025 00:26:02 +0900

#include <stdio.h>

int main(void) {
	int n,f=0,a=0,c=0;
	scanf("%d",&n);
	char s[n+1];
	scanf("%s",s);
	
	for(int i=0;i<n;i++) {
		if(s[i]=='B') f=1;
		if(f==1 && s[i]=='R') ++a;
	} 
	c=a;f=0;a=0;
	for(int i=0;i<n;i++) {
		if(s[i]=='R') f=1;
		if(f==1 && s[i]=='B') ++a;
	} 
	if(a && a<c)c=a; f=0;a=0;
	for(int i=n-1;i>=0;i--) {
		if(s[i]=='B') f=1;
		if(f==1 && s[i]=='R') ++a;
	}
	if(a && a<c)c=a;f=0;a=0;
	for(int i=n-1;i>=0;i--) {
		if(s[i]=='R') f=1;
		if(f==1 && s[i]=='B') ++a;
	}
	if(a && a<c)c=a;
	printf("%d",c);
}

풀이 : 그리디?

1. 왼쪽에서 출발, 오른쪽에서 출발 2가지 경우

2. 여기서 B 가 발견 된 다음 이후 나머지 A를 옮기는 경우, A가 발견된 다음 나머지 B를 옮기는 경우

총 4가지 경우를 고려하면 됩니다.

그 중 가장 최솟값을 출력하면 됩니다.

https://www.acmicpc.net/problem/17615

pascal 24765번 Mia (백준)

rofn123 — Sat, 13 Sep 2025 03:16:28 +0900

var a,b,c,d:word;
begin
repeat
read(a,b,c,d);
if a+b+c+d=0 then break;
if a+b=3 then a:=0
else if a<>b then if a>b then a:=90-a*10-b else a:=90-b*10-a
else a:=7-a;
if c+d=3 then c:=0
else if c<>d then if c>d then c:=90-c*10-d else c:=90-d*10-c
else c:=7-c;

if a=c then writeln('Tie.') 
else begin
 if a<c then a:=1 else a:=2;
 writeln('Player ',a,' wins.');
end;
until 1=0;
end.

풀이 : 구현, 많은 조건 분기

입력받은 값에 대해서 문제 조건에 맞추어 tier를 부여한 다음,

tier가 같다면 Tie.

다르다면 더욱 tier 숫자가 낮은 쪽이 이겼다고 출력했습니다.

1,2 2,1 => 0

6 6 => 1

5 5 => 2

4 4 =>3

3 3 =>4

2 2 =>5

1 1 =>6

이 외의 경우는

if a>b => 90-a*10-b

if a<b => 90-b*10-a

이런식으로 tier을 부여합니다.

ex) 5 6

90 - 6 * 10 - 5 = 25

ex) 2 3

90 - 3* 10 - 2 = 58

5 6 이 2 3 보다 tier 숫자가 낮다 => 5 6 이 2 3 을 이긴다!!!

pascal 24765번 Mia (백준)

rofn123 — Mon, 1 Sep 2025 12:03:41 +0900

var a,b,c,d:word;
begin
repeat
read(a,b,c,d);
if a+b+c+d=0 then break;
if a+b=3 then a:=0
else if a<>b then if a>b then a:=90-a*10-b else a:=90-b*10-a
else a:=7-a;
if c+d=3 then c:=0
else if c<>d then if c>d then c:=90-c*10-d else c:=90-d*10-c
else c:=7-c;

if a=c then writeln('Tie.') 
else begin
 if a<c then a:=1 else a:=2;
 writeln('Player ',a,' wins.');
end;
until 1=0;
end.

풀이 : 구현, 많은 조건 분기

입력받은 값에 대해서 문제 조건에 맞추어 tier를 부여한 다음,
tier가 같다면 Tie.
다르다면 더욱 tier 숫자가 낮은 쪽이 이겼다고 출력했습니다.

1,2 2,1 => 0
6 6 => 1
5 5 => 2
4 4 =>3
3 3 =>4
2 2 =>5
1 1 =>6

이 외의 경우는
if a>b => 90-a*10-b
if a<b => 90-b*10-a

이런식으로 tier을 부여합니다.

ex) 5 6
90 - 6 * 10 - 5 = 25

ex) 2 3
90 - 3* 10 - 2 = 58

5 6 이 2 3 보다 tier 숫자가 낮다 => 5 6 이 2 3 을 이긴다!!!

pascal 15079번 Arggggggh! (백준)

rofn123 — Sun, 31 Aug 2025 01:51:51 +0900

uses math;
var s:string;x,y,c,a,b:real;n,m:int64;
begin
readln(n,x,y);
repeat
n-=1;
if n=0 then break;
readln(s);
m:=length(s);c:=1;a:=0;
while s[m]<>' 'do begin
 a+=c*(ord(s[m])-48);
 m-=1;
 c*=10;
end;

b:=a/sqrt(2);

if s[1]='N'then begin
 if s[2]='E'then begin x+=b;y+=b;end
 else if s[2]='W'then begin x-=b;y+=b;end
 else y+=a;
end
else if s[1]='S'then begin
 if s[2]='E'then begin x+=b;y-=b;end
 else if s[2]='W'then begin x-=b;y-=b;end
 else y-=a;
end
else if s[1]='W'then x-=a
else if s[1]='E'then x+=a;
until 0=1;
writeln(x:0:8,' ',y:0:8);
end.

풀이 : 많은 조건 분기

1. n(정수형)과 좌표값들을 (실수형) 으로 입력받습니다.

2. 문자열을 입력받은 후, 여기서 이동거리를 실수형 변수에 변환해서 집어넣습니다.

3. N,W,S.E 의 경우 입력받은 거리 만큼 좌표를 이동시키고, NE,NS,WS,SE 의 경우 (입력받은거리/2^(0.5)) 만큼 두 개의 좌표를 이동시킵니다.

주의 : n=1 인 경우 좌표입력받은 그대로 출력하시면 됩니다.

pascal 31312번 Water Journal (백준)

rofn123 — Sun, 31 Aug 2025 01:51:36 +0900

var n,a,b,c,d,e:int64;
begin
read(n,a,b);d:=0;e:=0;
repeat
n-=1;
read(c);
if c=a then d:=1;
if c=b then e:=1;
until n=1;
if e+d=0 then write(-1)
else if(d=1)and(e=0)then write(b)
else if(d=0)and(e=1)then write(a)
else for n:=a to b do write(n,' ');
end.

풀이 : 많은 조건 분기?

1. 최소값, 최댓값이 입력되었다면 a~b 전부를 출력합니다.

2. 최소값만 입력되었다면 최댓값을 출력합니다.

3. 최댓값만 입력되었다면 최솟값을 출력합니다.

4. 둘 다 입력되지 않았다면 기억이 잘못된것이므로 -1 을 출력합니다.

pascal 31097번 Astrology (백준)

rofn123 — Sun, 31 Aug 2025 01:51:04 +0900

var s:string;a,b:int64;
begin
readln(s);
a:=(ord(s[6])-48)*10+ord(s[7])-48;
b:=(ord(s[9])-48)*10+ord(s[10])-48;
if((a=3)and(b>20))or((a=4)and(b<20))then write('Aries')
else if((a=4)and(b>19))or((a=5)and(b<21))then write('Taurus')
else if((a=5)and(b>20))or((a=6)and(b<21))then write('Gemini')
else if((a=6)and(b>20))or((a=7)and(b<23))then write('Cancer')
else if((a=7)and(b>22))or((a=8)and(b<23))then write('Leo')
else if((a=8)and(b>22))or((a=9)and(b<23))then write('Virgo')
else if((a=9)and(b>22))or((a=10)and(b<23))then write('Libra')
else if((a=10)and(b>22))or((a=11)and(b<23))then write('Scorpio')
else if((a=11)and(b>22))or((a=12)and(b<22))then write('Sagittarius')
else if((a=12)and(b>21))or((a=1)and(b<20))then write('Capricorn')
else if((a=1)and(b>19))or((a=2)and(b<19))then write('Aquarius')
else if((a=2)and(b>18))or((a=3)and(b<21))then write('Pisces');
end.

풀이 : 구현, 많은 조건 분기

1. year 는 무시하고, month 와 day를 입력에서 받아옵니다.

2. 문제에서 말하는 대로 조건문을 작성합니다. if 문으로 작성했습니다.

pascal 6919번 Fraction Action (백준)

rofn123 — Fri, 29 Aug 2025 19:08:37 +0900

var a,b,x,y,z:int64;
begin
read(a,b);
if a=0 then write(0)
else if a<b then begin
  x:=b;y:=a;z:=a;
  while 1=1 do begin
   if x mod y = 0 then break
   else begin z:=x mod y; x:=y mod x;y:=z;end;
  end;
  write(a div z,'/',b div z);
 end
else if a mod b=0 then write(a div b)
else if a>b then begin
  write(a div b,' ');
  x:=b;a:=a mod b;y:=a;z:=y;
  while 1=1 do begin
   if x mod y = 0 then break
   else begin z:=x mod y; x:=y mod x;y:=z;end;
  end;
  write(a div z,'/',b div z);
end;
end.

풀이 : 많은 조건 분기, 유클리드 호제법

1. numerator 가 0 인 경우 -> 0 출력

2. numerator < denominator 인 경우 -> 최대공약수를 구한 다음 기약분수 꼴로 출력

3. numerator == denominator 인 경우 -> 몫을 출력

4. numerator > denominator 인 경우 ->먼저 몫을 출력한 뒤, 나머지와 denominator을 이용하여 2번처럼 gcd를 구한 다음 기약분수 꼴로 출력