Tính tổng các phân tử chia hết cho 4 bé hơn 41

0 bình luận về “Tính tổng các phân tử chia hết cho 4 bé hơn 41”

1. Program qtruong;
   Uses crt;
   Var i:integer; s:longint;
   Begin
   Clrscr;
   s:=0;
   For i:=0 to 40 do if i mod 40 = 0 then s:=s+i;
   writeln(‘Tong cac phan tu chia het cho 4 be hon 41 la: ‘,s);
   readln
   end.

   Bình luận

2. uses crt;
   var i,tong:longint;
   begin
   clrscr;
   tong:=0;
   for i:=0 to 40 do
   if i mod 4=0 then tong:=tong+i;
   writeln(tong);
   readln;
   end.

   Bình luận