Câu 1:
Tổng số chẵn.
var kq,i: integer;
begin
for i:=1 to 100 do
if i mod 2 = 0 then inc(kq,i);
write('Tong so chan 1 den 100 la: ',kq);
end.
Tổng số lẻ
var kq,i: integer;
begin
for i:=1 to 100 do
if not i mod 2 = 0 then inc(kq,i);
write('Tong so le 1 den 100 la: ',kq);
end.
Câu 2:
Đếm số chẵn
var dem,i:integer;
begin
for i:=1 to 100 do
if i mod 2 = 0 then inc(dem);
write('Tong so chan: ',dem);
end.
Đếm số lẻ
var dem,i:integer;
begin
for i:=1 to 100 do
if not i mod 2 = 0 then inc(dem);
write('Tong so le: ',dem);
end.