Câu1: Viết phương trình tính tổng các số chẵn /lẻ từ 1 đến 100
Câu2: viết phương trình đếm có bao nhieu số chẵn / lẻ từ 1 đến 100
Sử dụng câu lệnh if và vòng lập for…to…do
Làm pascal
Câu1: Viết phương trình tính tổng các số chẵn /lẻ từ 1 đến 100
Câu2: viết phương trình đếm có bao nhieu số chẵn / lẻ từ 1 đến 100
Sử dụng câu lệnh if và vòng lập for…to…do
Làm pascal
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.
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.