viết chương trình in ra màn hình các số chẵn nhỏ hơn hoặc bằng 100 viết chương trình in ra màn hình các số nhỏ hơn hoặc bằng 100

0 bình luận về “viết chương trình in ra màn hình các số chẵn nhỏ hơn hoặc bằng 100 viết chương trình in ra màn hình các số nhỏ hơn hoặc bằng 100”

1. *Viết chương trình in ra màn hình các số chẵn nhỏ hơn hoặc bằng 100:

   Program Tim_so_chan;

   uses crt;

   var i,n:integer;

   Begin

   clrscr;

   Write(‘Nhap so n: ‘); Readln(n);

   For i:=1 to 100 do

   If i mod 2=0 then Write(‘Cac so chan nho hon hoac bang 100 la: ‘,i);

   Readln

   End.

   *Viết chương trình in ra màn hình các số nhỏ hơn hoặc bằng 100

   Program Tim_so_le;

   uses crt;

   var i,n:integer;

   Begin

   clrscr;

   Write(‘Nhap so n: ‘); Readln(n);

   For i:=1 to 100 do

   If i mod 2<>0 then Write(‘Cac so le nho hon hoac bang 100 la: ‘,i);

   Readln

   End.

   Bình luận

2. 1.

    Program b1;

   Uses crt;

   Var i:integer;

   Begin

      Write(‘cac so chan <= 100:’);

      For i:=1 to 100 do

        If i mod 2=0 then write(i:3);

      Readln;

   End.

   2.

   Program b2;
   Uses crt;
   Var i:integer;
   Begin
      Write(‘cac so < 100:’);
      For i:=1 to 100 do write(i:3);
      Readln;
   End.

   Bình luận