Viết phương trình đếm số lẻ từ 1 đến 100 Giúp mình với mình đang cần gấp ạ
2 câu trả lời
var i:integer;
begin
for i:=1 to 100 do
if i mod 2=1 then writeln (i);
readln;
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 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
