Dạng:Viết câu lệnh với FOR...DO: Viết chương trình in ra các số lẻ nhỏ hơn n.Nhập n từ bàn phím.Mình sẽ cho 5 sao cho

2 câu trả lời

var a,i: integer;

begin

write('Nhap so: '); readln(a);

for i:=1 to a do 

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

readln

end.

for ,i: inter;

begin

write('Nhap so:n '); readln(a);

for i:=1 to a do 

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

readln

end.

Câu hỏi trong lớp Xem thêm