Sử dụng lệnh while-do viết chương trình in ra các số lẻ nhỏ hơn n ( Với n được nhập). Sao cho 5 số lẻ được in trên một dòng. Help mai mình nộp rồi Thanks
2 câu trả lời
Program Hotboy;
uses crt;
Var n,i: integer;
Begin
Clrscr;
i:=1;
Write('nhap n');
Readln(n);
While i<n do
Begin
If (i mod 2<>0) then write(i:5);
End;
Readln
End.
program ct;
uses crt;
var n,i:integer;
begin
clrscr;
write('nhap n:=');readln(n);
i:=1;
while i<n do
begin
if i mod 2<>0 then writeln(i:5);
end;
readln
end.