GIẢM 30%

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.

Bạn đang xem: Giảm 30%

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);

star

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarBạn ơi mình chỉ mới học tới bài for... do còn if Not i mò 2=0 then inc(...) thì mình ko hiểu bạn có thể lập cái nào dễ hơn ko

Câu 1:

Tổng số chẵn.

Xem thêm: Vì Sao Tin Học Là Một Ngành Khoa Học? Bài 1: Tin Học Là Một Ngành Khoa Học

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.

Xem thêm: Nơi Bán Bao Da Kaku Galaxy Tab A6 10 1, Giá Cập Nhật 3 Giờ Trước

Đế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.

star

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar

Leave a Reply

Your email address will not be published. Required fields are marked *

  • Truyện tranh đam mỹ có thịt có màu

  • Các chất tham gia phản ứng tráng bạc

  • Xem phim nhất bạn bị cấm chiếu

  • Cách viết gạch ngang trên đầu chữ

  • x

    Welcome Back!

    Login to your account below

    Retrieve your password

    Please enter your username or email address to reset your password.