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

Phác Chí Mẫn

Viết chương trình in ra các số lẻ với n nhập từ bàn phím.

Dựa vào thuật toán sau đây:

B1: Nhập n

B2: i <--- 1

B3: Nếu i <= n, chuyển đến B6

B4: i <--- i + 2

B5: In ra i

B6: Kết thúc thuật toán

Đoàn Xuân Sơn
10 tháng 4 2019 lúc 12:11

program son;
var

i,n:integer;

a:array[1..32000] of integer;

begin

write(' nhap n : '); readln(n);

for i:= 1 to n do

begin

write(' nhap a[',i,']');

readln(a[i]);

end;

for i:= 1 to n do

if a[i] mod 2 <> 0 then write(a[i],' ')

readln

end.

Bình luận (1)
Minh Lệ
10 tháng 4 2019 lúc 11:54

Program hotrotinhoc ;

var n,i : integer ;

begin

write('Nhap gia tri cua n:'); readln(n);

i:=1;

while i <= n do

begin

i:=i+2 ;

if i mod 2 = 1 then write(i);

end;

readln

end.

Bình luận (0)

Các câu hỏi tương tự
nguyễn thị thu tiền
Xem chi tiết
Munnie
Xem chi tiết
Nguyễn Ngọc Thảo Linh
Xem chi tiết
Lưu Thanh Hà
Xem chi tiết
Hắc Phong
Xem chi tiết
Kiki :))
Xem chi tiết
Hằng Nguyễn
Xem chi tiết
Ho Truong Minh
Xem chi tiết
Nguyễn Ngọc
Xem chi tiết