Nhập vào số nguyên n tính tổng các số là bội của 3

0 bình luận về “Nhập vào số nguyên n tính tổng các số là bội của 3”

1. vậy mới đúng

   uses crt;

   var n,t,i : integer;

   BEGIN

   clrscr;

    t:=0;

    Write(‘Nhap vao so nguyen n :’); readln(n);

    For i:=1 to n do

     if i mod 3=0 then

      t:t+i;

    Writeln(‘Tong cac so la boi cua 3 tu 1 den ‘,n,’ la: ‘,t);

   readln;

   Bình luận

2. Đây nha bạn

   uses crt;

   var n,t,i : integer;

   BEGIN

   clrscr;

    t:=0;

    Write(‘Nhap vao so nguyen n : ‘); readln(n);

    For i:=1 to n do

     if i mod 3=0 then

      t:t+i;

    Writeln(‘Tong cac so la boi cua 3 tu 1 den ‘,n,’ la: ‘,t);

   readln;

   END.

   Còn nếu mk đánh sai trên này thì nhìn vào ảnh này nha, chắc chắn đúng đó .( Nếu sai thì do mk ko hiểu đề )

   

   Bình luận