Viết chương trình pascal tính tổng các số chia hết cho 5 và chia hết cho 3 từ 1 đến 100

0 bình luận về “Viết chương trình pascal tính tổng các số chia hết cho 5 và chia hết cho 3 từ 1 đến 100”

1. program tong;

   uses crt;

   var i,T: integer;

   Begin

            for i:=1 to 100 do

                 if (i mod 5=0) and (i mod 3=0) then T:=T+i;

            write(‘T = ‘,T);

            readln

   End.

   Bình luận

2. var i,n,t:integer;

   begin

   n:=100;

   t:=0;

   for i:=1 to n do

   if (i mod 3 = 0) and (i mod 5=0) then t:=t+i;

   writeln(t);

   readln;

   end.

   Chúc bạn học tốt!!!!

   Bình luận