Đội y tế của thành phố có N bác sỹ và M y tá (N<=M). Để phục vụ cho đợt tiêm chủng vaxin cho trẻ em tại các xã, phường trên toàn thành phố đội y tế thành lập các tổ công tác, trong mỗi tổ công tác đó có ít nhất 1 bác sỹ. Có thể chia đội y tế đó nhiều nhất thành mấy tổ để số bác sỹ và y tá được chia đều cho các tổ (Giả thiết luôn có phương án chia đều số bác sỹ và y tá cho nhiều hơn 1 tổ).
Hãy lập chương trình giải quyết bài toán trên
- Dữ liệu vào: Nhập vào từ bàn phím 2 số nguyên dương N, M (1<N≤M≤109) trên cùng dòng duy nhất, các số cách nhau một dấu cách
- Dữ liệu ra: In ra màn hình trên một dòng duy nhất ba số: số tổ, số bác sỹ, số y tá của mỗi tổ theo yêu cầu của bài toán, các số cách nhau một dấu cách.
PASCAL Ạ
Program HOC24;
var i,n,m: longint;
function nt(x: integer): boolean;
var j: integer;
begin
nt:=true;
if (x=2) or (x=3) then exit;
nt:=false;
if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;
j:=5;
while j<=trunc(sqrt(x)) do
begin
if (x mod j=0) or (x mod (j+2)=0) then exit;
j:=j+6;
end;
nt:=true;
end;
begin
readln(n,m);
if nt(n) write(n,#32,n,#32,m) else
begin
if n mod 2<>0 then
begin
if (n mod 3=0) then write(3,#32,n,#32,m);
if (n mod 5=0) then write(5,#32,n,#32,m);
end else write(2,#32,n,#32,m);
readln
end.
