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)

Program bai1;

uses crt;

var dem,n,i: integer;

begin

clrscr;

write['nhap n =']; readln[n];

dem:=0;

for i:= 1 to n do

if i mod 2 = 1 then

begin

write[i:3,','];

dem:= dem+1 ;

if dem mod 15 = 0 then writeln;

end;

readln;

end.

Lorem ipsum dolor sit amet, consectetur adipiscing elit.Morbi adipiscing gravdio, sit amet suscipit risus ultrices eu.Fusce viverra neque at purus laoreet consequa.Vivamus vulputate posuere nisl quis consequat.

Create an account

Program bai1;

uses crt;

var dem,n,i: integer;

begin

clrscr;

write['nhap n =']; readln[n];

dem:=0;

for i:= 1 to n do

if i mod 2 = 1 then

begin

write[i:3,','];

dem:= dem+1 ;

if dem mod 15 = 0 then writeln;

end;

readln;

end.

• lý thuyết
• trắc nghiệm
• hỏi đáp
• bài tập sgk

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]

Các câu hỏi tương tự

Program FNG;Uses crt;Var n,i: longint;Begin        Clrscr;        Write['Nhap n: ']; Readln[n];        i:=1;        While i