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!!