VCT tính tích các số tự nhiên từ 1 đến 100 dùng lệnh while…do

0 bình luận về “VCT tính tích các số tự nhiên từ 1 đến 100 dùng lệnh while…do”

1. var
           i: longint  ;
           kq: qword;
           begin
                   kq:= 1;
                   i:= 1;
                   while i <= 100 do
                           begin
                                   kq:= kq*i;
                                   i:= i+1;
                           end;
                   writeln (kq) ;
                   readln;
           end.

   Bình luận

2. program oken;

   uses crt;

   var i,s:qword;

   begin

   clrscr;

   s:=1; i:=1;

   while i<=100 do

     begin

        s:=s*i;

        i:=i+1;

     end;

   writeln(‘tich 100 so tu nhien: ‘,s);

   readln;

   end.

   Bình luận