Viết chương trình nhập một số nguyên 10 khác 0 từ bàn phím, viết ra màn hình các số tự nhiên chẵn Giúp giùm ạ

0 bình luận về “Viết chương trình nhập một số nguyên 10 khác 0 từ bàn phím, viết ra màn hình các số tự nhiên chẵn Giúp giùm ạ”

1. program oken;
   uses crt;
   var n,i: integer;
   begin
           clrscr;
           write(‘Nhap 1 so bat ky: ‘); readln(n);
           write(‘Cac so chan: ‘);
           for i:=1 to n do
                   if i mod 2=0 then
                           write(i,’ ‘);
           readln;
   end.

   Bình luận

2.  Var n,i:integer;

   Begin

   Write (‘ nhap n : ‘);

   Readln (n);

   For i:= 1 to n do If i mod 2 <>0 then Writeln (‘ cac so le co trong so do : ‘,i:4);

   Readln;

   end.

   Bình luận