Viết chương trình in ra màn hình các số lẻ từ 1 đến n được nhập từ bàn phím

0 bình luận về “Viết chương trình in ra màn hình các số lẻ từ 1 đến n được nhập từ bàn phím”

1. program oken;

   uses crt;

   var n,i:longint;

   begin

   clrscr;

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

   for i:=1 to n do

         if i mod 2=1 then

              write(i,’ ‘);

   readln;

   end.

   Bình luận

2. Program So_le;

   uses crt;

    Var i: integer;

   Begin

   clrscr;

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

   Writeln; 

    For i:=1 to n do

      if i mod 2<> 0 then write  (i:5);

   readln;

   End.

     

   Bình luận