Viết chương trình tính tích các số nguyên từ 1 đến 10

0 bình luận về “Viết chương trình tính tích các số nguyên từ 1 đến 10”

1. program   tinhtong;
   uses   crt;
   var    i,P :integer;
   begin

   P:=1;
   For i:=1 to 10 do P:=P*i;
   writeln   (‘Tich la’,P);
   readln
   ​end.

   Bình luận

2. program ctpt;

   uses crt;

     var i, T: integer;

   begin

              clrscr;

              T:=1;

              for i:=1 to 10 do T:=i*T;

              write(‘Tich = ‘, T);

              readln

   end.

   Bình luận