Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Dragon

Dùng vòng lặp không xác định đếm xem có bao nhiêu số lẻ  \(\le\) n

Minh Lệ
5 tháng 6 2020 lúc 13:58

Program HOC24;

var i,d,n: integer;

begin

write('Nhap N='); readln(n);

i:=1; d:=0;

while i<=n do

begin

if i mod 2=1 then d:=d+1;

i:=i+1;

end;

write(d);

readln

end.


Các câu hỏi tương tự
Dragon
Xem chi tiết
Ma Phan Đức
Xem chi tiết
Phương Trâm
Xem chi tiết
thục nguyên trần
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
Hồ Hoàng Long
Xem chi tiết
CHU VĂN AN
Xem chi tiết
Quỳnh Đỗ
Xem chi tiết
Huy Giang Pham Huy
Xem chi tiết