DEF BUNSU N,M,A,B OUT X,Y VAR XX,YY,M XX=N*B YY=M*A M=XX MOD YY WHILE M==0 M=XX MOD YY XX=XX/M:YY=YY/M WEND X=XX:Y=YY END
このコメントはネタバレを含んでいます。
こういち2020/9/25 17:19◆.Id/aHiU36hu
さすらいの名無しさん 思いっきり問題間違ってますね。 直しました。
チゲ2020/9/25 21:24 ネタバレ◆hD6/Dbr1N9Hy
とりあえずヒント見ずにやってみる。 X=N*B+A*M:Y=M*B I=2:F=SGN(X-Y) Z=MIN((X-Y)*F,X,Y) WHILE Z>=I IF (X MOD I)UU(Y MOD I) THEN I=I+1 ELSE X=X/I:Y=Y/I:Z=MIN((X-Y)*F,X,Y) WEND PRINT X;"/";Y