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

H24

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

ML
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.

Bình luận (0)

Các câu hỏi tương tự
H24
Xem chi tiết
MD
Xem chi tiết
PT
Xem chi tiết
TT
Xem chi tiết
H24
Xem chi tiết
HL
Xem chi tiết
CA
Xem chi tiết
QD
Xem chi tiết
HH
Xem chi tiết