Viết chương trình Nhập 1 số nguyên n bé hơn 20 in ra tích các số chẵn nguyên chẵn từ 1 đến n là

0 bình luận về “Viết chương trình Nhập 1 số nguyên n bé hơn 20 in ra tích các số chẵn nguyên chẵn từ 1 đến n là”

1. Program FNG;
   Uses crt;
   Var n,i,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=1;
           For i:=1 to n do
                   If i mod 2 = 0 then
                           s:=s*i;
           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận

2. program oken;

   uses crt;

   type so= 0..20;

   var    n:so;

            i:byte;

            tich:=longint;

   begin

   clrscr;

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

   for i:=1 to n do

      if i mod 2 = 0 then

           tich:=tich*i;

   writeln(‘tich: ‘,tich);

   readln;

   end.

       

   Bình luận