Question

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

Answer 1

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.

Answer 2

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.