tính tích P=1*2*3*-.*n bằng lệnh lặp while – do

0 bình luận về “tính tích P=1*2*3*-.*n bằng lệnh lặp while – do”

1. program oken;
   uses crt;
   var i,n:integer;
       p: qword;
   begin
           clrscr;
           write(‘nhap n: ‘); readln(n);
           p:=1; i:=0;
           while i<n do
                   begin
                           i:=i+1;
                           p:=p*i;
                   end;
           writeln(‘P=’,p);
           readln;
   end.

   Bình luận

2. Program BTH;
   uses crt;
   var i,n:longint;
   p:qword;
   Begin
       clrscr;
       write(‘Nhap n: ‘);readln(n);
       p:=1; 
       i:=0;
       while i<n do
           begin
               i:=i+1;
               p:=p*i;
           end;
       writeln(‘P=’,p);
       readln;
   end.

   Bình luận