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.
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<=n do Begin Write(i,' '); inc(i,2); End; Readln End. |