Giúp mk vs , mk vote . Viết chương trình nhập vào số nguyên n,số s . Tính tổng các số chia hết cho S trong dãy n số tự nhiên từ 1 đến n

Giúp mk vs , mk vote .
Viết chương trình nhập vào số nguyên n,số s .
Tính tổng các số chia hết cho S trong dãy n số tự nhiên từ 1 đến n

0 bình luận về “Giúp mk vs , mk vote . Viết chương trình nhập vào số nguyên n,số s . Tính tổng các số chia hết cho S trong dãy n số tự nhiên từ 1 đến n”

  1. var n, s,ss, i: qword;

    Begin Writeln(‘nhap n,s’);

    readln(n,s);

    if s<=n then {nếu mà s<=n thì mới tính, nếu s>n thì luôn cho kq = 0}

    begin i:=s+s;ss:=s;{số nhỏ hơn s ko thể chia hết cho s nên chạy từ s+s,tổng ban đầu bằng s vì s luôn chia hết cho chính nó}

    While i<=n do Begin

    Inc(ss,i);

    Inc(i,s){tạo tập hợp các phần tử chia hết cho s bằng cách cộng dồn s vào i đến khi i>n thì dừng};End;end;

    Write(ss);

    Readln;

    End.

    {Trong đó: INC(i,s) tương đương với lệnh i:=i+s,

    khi chưa gán giá trị ở chương trình chính thì

    các biến luôn có giá trị ban đầu bằng 0    ,

     Có lẽ đây là chương trình chạy nhanh nhất}

    Bình luận
  2. Uses Crt;

    Var i,s,n,tg:word;

    Begin

     Clrscr;

     Write(‘Nhap S:’); Readln(s);

     Write(‘Nhap N:’); Readln(n);

     For i:=1 to n do if i mod s = 0 then tg:=tg + i;

     Write(tg);

     Readln

    End.

    Bình luận

Viết một bình luận