Viết chương trình tính tích của 10 số tự nhiên đầu tiên bằng 2 cách ( for và while ).

0 bình luận về “Viết chương trình tính tích của 10 số tự nhiên đầu tiên bằng 2 cách ( for và while ).”

1. Cách 1: dùng for … do

   program tinhtich;

   uses crt;

   var tich:longint;

          i:byte;

   begin

   clrscr;

   tich:=1;

   for i:=1 to 10 do

    tich:=tich*i;

   write(‘Tich 10 so tu nhien dau tien la: ‘,tich);

   readln

   end.

   Cách 2: dùng while … do

   program tinhtich;

   uses crt;

   var i:byte;

          tich:longint;

   begin

   clrscr;

   i:=1; tich:=1;

   while i<=10 do

    begin

     tich:=tich*i;

     i:=i+1;

    end;

   write(‘Tich 10 so tu nhien dau tien la: ‘,tich);

   readln

   end.

   Bình luận

2. Var i,s:integer;
   Begin
   s:=1
   for i:=1 to 10 do s:=s*i;
   writeln(‘Tich: ‘,s);
   readln
   end.

   Bình luận