Viết chương trình đếm các số chẵn từ 1 đến n
|
Lorem ipsum dolor sit amet, consectetur adipiscing elit.Morbi adipiscing gravdio, sit amet suscipit risus ultrices eu.Fusce viverra neque at purus laoreet consequa.Vivamus vulputate posuere nisl quis consequat.
Lorem ipsum dolor sit amet, consectetur adipiscing elit.Morbi adipiscing gravdio, sit amet suscipit risus ultrices eu.Fusce viverra neque at purus laoreet consequa.Vivamus vulputate posuere nisl quis consequat.
.Viết chương trình đếm các số chẵn của N số tự nhiên (N được nhập vào bàn phím). Các câu hỏi tương tự
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ố chẵn từ 1 đến 100 Câu 1: Tổng số chẵn. Bạn đang xem: Viết chương trình tính tổng các số chẵn từ 1 đến 100 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]; starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarBạ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. 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. Xem thêm: Bigboss - Tổng Giám Đốc Hàng Tỉ Yêu Vợ Tận Xương [Quyển 2 ] 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]; Đế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. starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarRelated Posts 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ố chẵ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: Cảm Nhận Khổ 2 Bài Sang Thu Của Hữu Thỉnh Chi Tiết, Hay, Phân Tích Khổ Hai Bài Thơ Sang Thu star starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar 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: Viết chương trình tính tổng các số chẵn từ 1 đến 100 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]; starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarBạ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: 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. starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar
.Viết chương trình đếm các số chẵn của N số tự nhiên [N được nhập vào bàn phím]. Các câu hỏi tương tự Giá trị s là bao nhiêu [Tin học - Lớp 8] 1 trả lời Đặt tính rồi tính [Tin học - Lớp 5] 1 trả lời Viết hình lục giác trong logo và hình tam giác [Tin học - Lớp 4] 3 trả lời Sơ đồ khối là gì [Tin học - Lớp 6] 1 trả lời Program baitap; Uses crt; Var i,N,dem:integer; Begin Clrscr; Write['N=']; Readln[N]; dem:=0; For i:=1 to N do If [i mod 2=0] then dem:=dem+1; Writeln['Cac so chan tu 1 den ',N,' la:',dem]; Readln End. Video liên quanProgram baitap; Uses crt; Var i,N,dem:integer; Begin Clrscr; Write('N='); Readln(N); dem:=0; For i:=1 to N do If (i mod 2=0) then dem:=dem+1; Writeln('Cac so chan tu 1 den ',N,' la:',dem); Readln End. |
