Bài 7. Câu lênh lặp

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

Viết chương trình in ra các số lẽ nhỏ hơn hoặc bằng n ( Sữ dụng while ... do )

Nguyễn Lê Phước Thịnh
25 tháng 2 2020 lúc 20:58

uses crt;
var n,i:integer;
begin
clrscr;
write('n='); readln(n);
i:=0;
while i<=n do
begin
i:=i+1;
if i mod 2=1 then write(i,' ');
end;
readln;
end.

Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
25 tháng 2 2020 lúc 21:01

uses crt;
var n,i:integer;
begin
clrscr;
write('n='); readln(n);
i:=1;
while i<=n do
begin
if i mod 2=1 then write(i,' ');
inc(i);
end;
readln;
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Kisaragi Saya
Xem chi tiết
thanh mai
Xem chi tiết
Sinphuya Kimito
Xem chi tiết
NgocTuan
Xem chi tiết
Thư Uyên
Xem chi tiết
Tiên Võ
Xem chi tiết
Huy Nguyễn
Xem chi tiết
Lê Thị Như Ngọc
Xem chi tiết
Lê Đăng Khôi
Xem chi tiết