Question

viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n(n nhập từ bàn phím)

Answer 1

Lời giải :

program hotrotinhoc ;

var i,n : integer ;

begin

write('n='); readln(n);

for i:= 1 to n do

if (i mod 2 = 1) and (i<=n) then write(i);

readln

end.

Answer 2

Program Tim_so_le;

Uses crt;

Var i,n:integer;

Begin

clrscr;

Write('Nhap so n;'); Readln(n);

For i:=1 to n do If i mod 2=1 then Write('Cac so le nho hon n la:',i:3,',');

Readln

End.

Answer 3

program hotrotinhoc ;

var i,n : integer ;

begin

write('n='); readln(n);

for i:= 1 to n do

if i mod 2 = 1 then write(i:4);

readln

end.

Answer 4

program hotrotinhoc ;

var i,n : integer ;

begin

write('n='); readln(n);

for i:= 1 to n do

if i mod 2 = 1 then write(i:4);

readln

end.