Đi chợ. Để chuẩn bị cho lễ kết nạp đoàn viên mới, thầy Hiếu nhờ bạn Minh đi ra chợ mua bim bim để các bạn liên hoan. Minh mua được 2 túi bim bim. Túi thứ nhất có x (x>=1) gói và túi thứ 2 có y (y>=1) gói. Minh rất lo lắng vì cậu đã lỡ làm mất túi thứ nhất, và không nhớ trong túi thứ nhất có bao nhiêu gói bim bim. Cậu chỉ nhớ được tổng số gói không vượt quá n và chia hết cho k. Yêu cầu: Thầy Hiếu nhờ các bạn hãy giúp Minh tính có thể có bao nhiêu gói bim bim có trong túi thứ nhất để thầy mua bổ sung. nếu có nhiều khả năng thì in ra tất cả theo thứ tự tăng dần. Nếu không thể biết số gói bim bim thì in ra -1. Viết CT Pascal

1 câu trả lời

Gửi bạn,

uses crt;
var y,k,n,i : longword;
const kt : boolean=true;
begin
    clrscr;
    readln(y,k,n);
    for i:=y div k+1 to n div k do
    begin
        kt := false;
        write(i*k-y,' ');
    end;
    if kt then write(-1);
    readln;
end.

Câu hỏi trong lớp Xem thêm