Trang chủ Tin Học Lớp 9 Một người chăn gia súc đã mang x con vịt...

Một người chăn gia súc đã mang x con vịt và b con ngỗng ra chợ bán Với x và y<=250. Người chăn nuôi gặp một vị khách,sau khi trao đổi người khách đưa cho người

Câu hỏi :

Một người chăn gia súc đã mang x con vịt và b con ngỗng ra chợ bán Với x và y

Lời giải 1 :

uses crt;
var k,x,y,i,j,d:longint;
begin
clrscr;
   readln(k,x,y);
   for i:=1 to k div x do 
      for j:=1 to k div y do 
         if i*x+y*j=k then inc(d);
   writeln(d);
readln
end.

Thảo luận

-- Mình thiếu một chi tiết
-- Giá con vịt luôn hơn giá con ngỗng
-- Trưởng nhóm ơi, mik xin lỗi nhưng mà do tháng này lịch hok online của mik chặt quá nên mik xin phép out nhóm trong tháng này và tháng sau nếu đc thì cho mik vào lại đc ko ạ
-- Giá con vịt luôn hơn giá con ngỗng => ok để mình sửa
-- Trưởng nhóm ơi, mik xin lỗi nhưng mà do tháng này lịch hok online của mik chặt quá nên mik xin phép out nhóm trong tháng này và tháng sau nếu đc thì cho mik vào lại đc ko ạ => Nhóm luôn đón mời bạn :3
-- Cảm ơn bn ạ
-- Ok :3
-- Bye bạn, chúc bạn thành công nhé. Hẹn gặp lại :>>

Lời giải 2 :

Chỉ in số phương án:

program bai_giai;
uses crt;
var k,x,y,d,i,j:integer;
begin
    clrscr;
    read(k,x,y);
    d:=0;
    for i:=1 to k div x do
        begin
            j:=k-x*i;
            if (j mod y=0) and (j<>0) then d:=d+1;
        end;
    write(d);
    readln;    readln;
end.

In các phương án và số phương án:

program bai_giai;
uses crt;
var k,x,y,d,i,j:integer;
begin
    clrscr;
    read(k,x,y);
    d:=0;
    for i:=1 to k div x do
        begin
            j:=k-x*i;
            if (j mod y=0) and (j<>0) then
                begin
                    d:=d+1;
                    writeln(i,' ',j div y);
                end;
        end;
    write(d);
    readln;    readln;
end.

Số phương án của giá vịt cao hơn giá ngỗng:

program bai_giai;
uses crt;
var k,x,y,d,i,j:integer;
begin
    clrscr;
    read(k,x,y);
    d:=0;
    for i:=1 to k div x do
        begin
            j:=k-x*i;
            if (j mod y=0) and (j<>0) and (i>j div y) then d:=d+1;
        end;
    write(d);
    readln;    readln;
end.

Phương án và số phương án của giá vịt cao hơn giá ngỗng:

program bai_giai;
uses crt;
var k,x,y,d,i,j:integer;
begin
    clrscr;
    read(k,x,y);
    d:=0;
    for i:=1 to k div x do
        begin
            j:=k-x*i;
            if (j mod y=0) and (j<>0) and (i>j div y) then
                begin
                    d:=d+1;
                    writeln(i,' ',j div y);
                end;
        end;
    write(d);
    readln;    readln;
end.

Bạn có biết?

Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.

Nguồn : Wikipedia - Bách khoa toàn thư

Tâm sự 9

Lớp 9 - Là năm cuối ở cấp trung học cơ sở, sắp phải bước vào một kì thi căng thẳng và sắp chia tay bạn bè, thầy cô và cả kì vọng của phụ huynh ngày càng lớn mang tên "Lên cấp 3". Thật là áp lực nhưng các em hãy cứ tự tin vào bản thân là sẻ vượt qua nhé!

Nguồn : ADMIN :))

Liên hệ hợp tác hoặc quảng cáo: gmail

Điều khoản dịch vụ

Copyright © 2021 HOCTAPSGK