Question

[Đào Khánh Thy]

Độ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≤10⁹) 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 Ạ

Answer 1

[Quốc Đạt]

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.