Viết chương trình – Nhập vào số nguyên N. – Xuất ra màn hình các số chẵn từ 1 đến N – Xuất ra màn hình các số lẻ từ 1 đến N

0 bình luận về “Viết chương trình – Nhập vào số nguyên N. – Xuất ra màn hình các số chẵn từ 1 đến N – Xuất ra màn hình các số lẻ từ 1 đến N”

1. uses crt;
   var n:integer;
       i:byte;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      write(‘Cac so chan la: ‘);
      for i:=1 to n do
      if i mod 2 = 0 then write(i:2);
      writeln;
      write(‘Cac so le la: ‘);
      for i:=1 to n do
      if i mod 2 <> 0 then write(i:2);
      readln
   end.

   Bình luận

2. program oken;
   uses crt;
   var n,i:longint;
   begin
           clrscr;
           write(‘Nhap N: ‘); readln(n);
           write(‘Cac so le tu 1 den ‘,n,’: ‘);
           for i:=1 to n do
                   if i mod 2<>0 then write(i,’ ‘);
           writeln;
           write(‘Cac so chan tu 1 den ‘,n,’: ‘);
           for i:=1 to n do
                   if i mod 2=0 then write(i,’ ‘);
           readln;
   end.

   Bình luận