Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n ( Với n được nhập). Sao cho 15 số lẻ được in trên một dòng

0 bình luận về “Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n ( Với n được nhập). Sao cho 15 số lẻ được in trên một dòng”

1. Program In_So_Le;
   Uses crt;
   var Dem,i,n: integer;
   Begin
    Clrscr;
    Write(‘Nhap so n =’); readln(n);
    Dem:= 0;
    For i:=1 to n do if i mod 2 =1 then
    Begin
    Write(i:3,’,’);

   CHÚC BN HC TỐT MÀ BN KO TIN THÌ BN CÓ THỂ THỬ

   Bình luận

2. var n,i,d:integer;

   var n,i,d:integer;

   begin

   clrscr;

   write(‘Nhap n: ‘);  readln(n);

   d:=0;

   writeln(‘Cac so le tu 1 den n la: ‘);

   for i:=1 to n do

      if i mod 2=1 then 

         begin

              write(i,’ ‘);

              d:=d+1;

              if d mod 15=0 then writeln;

         end;

   readln

   end.

   Bình luận