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.
Create an account
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.
Create an account
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
.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ự
-
cho a và b được nhập vào từ bàn phím. Viết chương trình in ra các số chia hết cho 2 trong đoạn a và b
21/09/2022 | 0 Trả lời
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
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
.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 quan
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.