viết chương trình tính tổng chia hết cho 2 và cho 4 trong phạm vi từ 1 đến N; với N đc nhập từ bàn phím

0 bình luận về “viết chương trình tính tổng chia hết cho 2 và cho 4 trong phạm vi từ 1 đến N; với N đc nhập từ bàn phím”

1. uses crt;
   var i,s,n:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do
      if (i mod 2 = 0) and (i mod 4 = 0) then s:=s+i;
      write(‘Tong chia het cho 2 va 4 la: ‘,s);
      readln
   end.

   Bình luận

2. program oken;
   uses crt;
   var n,i,s:longint;
   begin
           clrscr;
           write(‘Nhap 1 so bat ky: ‘); readln(n);
           s:=0;
           for i:=1 to n do
                   if (i mod 2=0) and (i mod 4=0) then
                           s:=s+i;
           writeln(‘Tong cac chia het 2 va 4 tu 1 den ‘,n,’: ‘,s);
           readln;
   end.

   Bình luận