Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng số nguyên dương n ( Với n được nhập). Yêu cầu nhập lại nếu n

Question

Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng số nguyên dương n ( Với n được nhập). Yêu cầu nhập lại nếu n <=0

tuyetnhung · Answer

Dưới ảnh nha

lanngocha · Answer

program so_le;

uses crt;

var n,i:integer;

begin

clrscr;

repeat

write(‘Nhap n: ‘); readln(n);

if n<=0 then writeln(‘Nhap lai!’);

until n>0;

write(‘Cac so le tu 1 den ‘,n,’ la: ‘);

for i:=1 to n do

if i mod 2=1 then write(i,’ ‘);

readln;

end.

Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng số nguyên dương n ( Với n được nhập). Yêu cầu nhập lại nếu n <=0