Câu1: Viết phương trình tính tổng các số chẵn /lẻ từ 1 đến 100 Câu2: viết phương trình đếm có bao nhieu số chẵn / lẻ từ 1 đến 100 Sử dụng câu lệnh if và vòng lập for...to...do Làm pascal

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.

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.