viết chương trình 15x16x17x… xN giúp mình vs1

0 bình luận về “viết chương trình 15x16x17x… xN giúp mình vs1”

1. Uses crt;
   Var n,i:integer;

       s:longword;

   Begin

           Clrscr;

           Write(‘Nhap n:’); readln(n);

           s:=1;

           For i:=15 to n do

           s:=s*i;

           Write(s);

           Readln;

   End.

   Bình luận

2. uses crt;
   var n,i:integer;

       s:longword;

   BEGIN

           clrscr;

           write(‘Nhap n:’); readln(n);

           s:=1;

           for i:=15 to n do

           s:=s*i;

           write(s);

           readln

   END.

    Xin ctlhn.

   Bình luận