Bài 2: Thiết lập chương trình tính tổng từ 1 đến N của các số chẵn chia hết cho 4 và chia hết cho 6. VD: Nhâp số N = 100 thì tổng là 432

0 bình luận về “Bài 2: Thiết lập chương trình tính tổng từ 1 đến N của các số chẵn chia hết cho 4 và chia hết cho 6. VD: Nhâp số N = 100 thì tổng là 432”

1. Sửa lại:

   uses crt;

   var N,i,S:longint;

   begin

   clrscr;

   write(‘Nhap N= ‘);readln(N);

   writeln;S:=0;

   for i:=1 to N do

   if (i mod 4=0) and (i mod 6=0) then S:=S+i;

   writeln(‘Tong cac so chan tu 1 toi N chia het cho 4 va 6 la: ‘,S);

   readln;

   end.

   Bình luận

2. program oken;
   uses crt;
   var n,s,i: longint;
   begin
       clrscr;
       write(‘Nhap n: ‘); readln(n);
       for i:=1 to n do
           if (i mod 4=0) and (i mod 6=0) then
               s:=s+i;
       writeln(‘Tong: ‘,s);
       readln;
   end.

   Bình luận