viết chương trình kiểm tra xem từ 1 đến n có bao nhiêu số chẵn, bao nhiêu số lẻ với n là số nguyên nhập từ bàn phím
2 câu trả lời
Program kiemtra;
Uses crt ;
var chan,le,n,i:integer;
begin
Clrscr;
Chan:=0; le:=0;
writeln('Nhap so nguyen n :'); readln(n);
for i:=1 to n do
If i mod 2 =0 then chan:= chan+ 1 else le:= le+1;
Writeln(' co so so chan la = ',chan);
Writeln(' co so so le la = ',le);
Readln
end.
Mình đã chạy được chương trình rồi á,dưới ảnh nha
Program BTT;
Uses crt;
Var n,i,dc,dl: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
dc:=0; dl:=0;
For i:=1 to n do
Begin
If i mod 2 = 0 then inc(dc);
If i mod 2 = 1 then inc(dl);
End;
Writeln('Co ',dl,' so le');
Write('Co ',dc,' so chan');
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
