Viết chương trình tính tổng các số chia hết cho 5 hoặc 3 trong phạm vi từ M đến N

0 bình luận về “Viết chương trình tính tổng các số chia hết cho 5 hoặc 3 trong phạm vi từ M đến N”

1. var s: longint;

          M, n, i: word;

   Begin

       Write(‘nhap m va n: ‘); readln(m, n);

       S:=0;

       For i:=m to n do

           If (i mod 5=0) or (i mod 3=0)

               Then s:=s+i;

       Write(s);

       Readln

   End.

   Bình luận

2. uses crt;

   var m,n,i,t:integer;

   begin

   clrscr;

   repeat

   write(‘Nhap m=’); readln(m);

   write(‘Nhap n=’); readln(n);

   until m<=n;

   t:=0;

   for i:=m to n do 

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

   writeln(t);

   readln;

   end.

   @ xin hay nhất ạ ????

   Bình luận