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.