Bài 1 : Tính tổng các số lẻ trong phạm vi từ 1 đến 20. Bài 2 : Tính tổng các số chẵn trong phạm vi từ 1 đến 20. Giúp e vs ạ e hứa vote 5 sao và tlhn ạ E cần gấp ạ mong giúp đỡ ạ Viết chương trình cs sd câu lệnh lặp for..do ạ;-; *nãy câu kia 2 bn trl nhầm nên mik tắt bl r ạ;-;xl ạ;-;
2 câu trả lời
Bài 1:
uses crt;
var i,tong:integer;
begin
clrscr;
tong:=0;
for i:=1 to 20 do
if i mod 2 = 1 then tong:tong+i;
write ('Tong cac so le tu 1 den 20 la: ',tong);
readln;
end.
Bài 2:
uses crt;
var i,tong:integer;
begin
clrscr;
tong:=0;
for i:=1 to 20 do
if i mod 2 = 0 then tong:tong+i;
write ('Tong cac so chan tu 1 den 20 la: ',tong);
readln;
end.
Số lẻ
var i,s:integer;
begin
clrscr;
S:=0;
for i:=1 to 20 do
if i mod 2=1 then S:=S+i;
write('Tong cac so le tu 1 den 20 la: ',s);
readln;
end.
Số chẵn
var i,s:integer;
begin
clrscr;
S:=0;
for i:=1 to 20 do
if i mod 2=1 then S:=S+i;
write('Tong cac so chan tu 1 den 20 la: ',s);
readln;
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
