Bài 1 : Tính tổng các số lẻ trong phạm vi từ 1 đến 20. Bài 2 : Tính tổng các số chẵn trong phạm vi từ 1 đến 20. Giúp e vs ạ e hứa vote 5 sao và tlhn ạ E cần gấp ạ mong giúp đỡ ạ

Số lẻ

var i,s:integer;

begin

 clrscr;
S:=0;
 for i:=1 to 20 do
if i mod 2=1 then S:=S+i;
write('Tong cac so le tu 1 den 20 la: ',s);
readln;
end.
Số chẵn

var i,s:integer;

begin

 clrscr;
S:=0;
 for i:=1 to 20 do
if i mod 2=1 then S:=S+i;
write('Tong cac so chan tu 1 den 20 la: ',s);
readln;
end.

Bài 1:

uses crt;
var i,s:longint;
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 toi 20: ',s);
readln
end.

Bài 2:

uses crt;
var i,s:longint;
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 toi 20: ',s);
readln
end.