Tính tổng các số tự nhiên từ 1 đến 100 Tin học

Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.

Bạn đang xem: Viết chương trình tính tổng các số tự nhiên từ 1 đến 100?

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.

Xem thêm: Hướng Dẫn Cách Xóa Ảnh Bìa Trên Facebook Trên Điện Thoại!, Ảnh Đại Diện Và Ảnh Bìa Của Bạn

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar