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 23/07/2021 Bởi Lydia 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
uses crt; var i,n:integer; BEGIN clrscr; write(‘Nhap n:’); readln(n); while n<=0 do begin clrscr; writeln(‘Nhap sai,vui long nhap lai!’); write(‘Nhap n:’); readln(n); end; write(‘Cac so le <=n la:’); for i:=1 to n do if i mod 2=1 then write(i,’ ‘); readln END. Xin ctlhn! Bình luận
uses crt;
var i,n:integer;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
while n<=0 do
begin
clrscr;
writeln(‘Nhap sai,vui long nhap lai!’);
write(‘Nhap n:’); readln(n);
end;
write(‘Cac so le <=n la:’);
for i:=1 to n do
if i mod 2=1 then write(i,’ ‘);
readln
END.
Xin ctlhn!
đây bạn