Viết chương trình tính tích dãy số : 2*3*4*5*6*7*8?

0 bình luận về “Viết chương trình tính tích dãy số : 2*3*4*5*6*7*8?”

1. Program tinh_tich;

   Uses crt;

   Var i: byte;

         tich: longint;

   Begin

   Tich:=1;

   For i:= 2 to 8 do 

   Tich:=tich*i;

   Writeln (‘Tich day so la:’,tich);

   Readln

   End.

   Bình luận

2. program oken;
   uses crt;
   var i,s: longint;
   begin
       clrscr;
       s:=1;
       for i:=2 to 8 do
           s:=s*i;
       write(‘Tich tu 2 den 8: ‘,s);
       readln;
   end.

   Bình luận