Bài 3: Viết câu lệnh lặp for … do tính tổng các số lẻ trong phạm vi từ 1 đến 20. Bài 4: Viết câu lệnh lặp for … do tính tổng các số chẵn trong phạm vi

3. Tổng số lẻ:

Program Tinh_tong;

Uses crt;

Var i,s: integer;

Begin

   clrscr;

   S:=0;

   for i:=1 to 20 do

   if i mod 2=1 then S:=S+i;

   writeln(‘Tong cac so le tu 1 den 20 la: ‘,s);

   readln;

end.

4. Tổng số chẵn

Program Tinh_tong;

Uses crt;

Var i,s: integer;

Begin

   clrscr;

   S:=0;

   for i:=1 to 20 do

   if i mod 2=0 then S:=S+i;

   writeln(‘Tong cac so chan tu 1 den 20 la: ‘,s);

   readln;

end.

Mk tin k giỏi lm nên k chắc nha.

Chúc bn hk tốt!!