viết chương trình tính tổng của các số nguyên chia hết cho 3 trong phạm vi từ 1 đến 30

0 bình luận về “viết chương trình tính tổng của các số nguyên chia hết cho 3 trong phạm vi từ 1 đến 30”

1. program tong_chia3;

   uses crt;

   var i,t:integer;

   begin

          clrscr;

          t:=0;

          for i:=1 to 30 do

                 if i mod 3=0 then t:=t+i;

          write(‘Tong cac so chia het cho 3 tu 1 den 30 la: ‘,t);

          readln;

   end.

   Bình luận

2. Proram Tinh_Tong;

   Var S,i: Integer;

   Begin

   S :=0;

   For i:=1 to 30 do

   If i mod 3=0 then S:=S+i;

   Write(‘Tong cac so nguyen chia het cho 3 trong pham vi tu 1 den 30 la := ‘,S);

   Readln;

   End.

   Bình luận