Bạn Nam có X viên bi, bạn Minh có Y viên bi. Biết rằng tổng số bi của hai bạn là N và nếu tăng số bi của Nam lên 2 lần và tăng số bi của Min lên 3 lần thì số bi của hai bạn bằng nhau. Cho biết N hãy tìm X và Y. Dữ liệu vào: Tệp văn bản DEMBI.INP chỉ ghi một số nguyên N (0<N<=10^9) Kết quả: Ghi ra tệp văn bản DEMBI.OUT hai số X và Y trên cùng dòng cách nhau một dấu cách. Nếu bài toán không có nghiệm thì ghi số -1. Ví dụ: DEMBI.INP DEMBI.OUT 5 3 2 6 -1

2 câu trả lời

- Để giải bài này thì lại quay sang toán :)

+ Theo bài ra, ta có: `X + Y = N, 2X = 3Y => X/3 = Y/2`
+ Áp dụng t/c dãy tỉ số bằng nhau: `X/3 = Y/2 = (X+Y)/5 = N/5`
`=> X = N / 5 * 3`
`=> Y = N / 5 * 2`

- Code

uses crt;
var n: longint;
begin
    clrscr;
    readln(n);
    if n mod 5 = 0 then write(n div 5 * 3, #32, n div 5 * 2) else write(-1);
readln;
end.

Uses crt;
Var 
    n,x,y,i: LongInt;
Begin
    repeat
    clrscr;
    readln(n);
    until(0<n)and(n<=1000000000);   {Nhập n thoả mãn nếu không lặp lại}
    i:=0;                                                    {Đặt biến kiểm tra}
    for x:=1 to n do                                  {Xét x từng trường hợp}
        begin
        y:=n-x;
        if x*2=y*3 then begin i:=1; break; end; {Nếu thoả mãn thì đặt lại biến kiểm tra rồi thoát vòng lặp}
        end;
    if i=1 then writeln(x,' ',y) else writeln('-1'); {In ra}
    readln;
End.