Cho 2 số nguyên dương M,N (MN

0 bình luận về “Cho 2 số nguyên dương M,N (M<N). Tính tổng các số chia hết cho 3 từ M->N”

1. program tong_chiahet3;

   uses crt;

   var m,n,i,s:integer;

   begin

          clrscr;

          write(‘Nhap M: ‘);  readln(m);

          write(‘Nhap N: ‘);  readln(n);

          s:=0;

          for i:=m to n do

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

          write(‘Tong cac so chia het cho 3 tu ‘,m,’ den ‘,n,’ la: ‘,s);

          readln;

   end.

   Bình luận

2. var m,n,t,i: longint;
   begin
       write(‘Nhap m: ‘);
       readln(m);
       write(‘Nhap n: ‘);
       readln(n);
       for i:=m to n do
           if (i mod 3 = 0) then t:=t+i;
       writeln(‘Tong tat ca cac so chia het cho 3 tu ‘,m,’ toi ‘,n,’ la: ‘,t,’.’);
       readln
   end.

   Bình luận