viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng so nguyên dương n ( n đc nhập từ bàn phím)
Yêu cầu nhập lại nếu n< 0 hoặc n=0.
viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng so nguyên dương n ( n đc nhập từ bàn phím)
Yêu cầu nhập lại nếu n< 0 hoặc n=0.
For:
uses crt;
var i,n:longint;
begin
clrscr;
repeat write(‘n=’);readln(n); until n>0;
for i:=1 to n do if i mod 2=1 then writeln(i);
readln
end.
While do:
uses crt;
var i,n:longint;
begin
clrscr;
repeat write(‘n=’);readln(n); until n>0; i:=0;
while i<=n do
begin
if i mod 2=1 then writeln(i);
i:=i+1;
end;
readln
end.
///////////
Giải thích:
Điều kiện: nhập cho đê khi thỏa mãn điều kiện không phải(n<=0) thì là lớn hơn 0
Chưa đúng điều kiện thì chuong trình cho chúng ta nhập cho đến khi đúng
Số lẻ là mod mod 2=1
Program FNG;
Uses crt;
Var n,i: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
i:=1;
While i<=n do
Begin
Write(i,’ ‘);
inc(i,2);
End;
Readln
End.