Viết phương trình tính tích 30 số nguyên đầu tiên

0 bình luận về “Viết phương trình tính tích 30 số nguyên đầu tiên”

1. program tich;

   uses crt;

   var s,i,n:integer;

   begin

   clrscr;

   s:=1;

   for i:=1 to 30 do s:=s*i;

   writeln(‘tich la:’,s);

   readln

   end.

   Bình luận

2. program vandat;
   uses crt;
   var i : integer;  s : qword;st : ansistring;
   begin clrscr;
   s:=1;
   for i:=1 to 30 do s:=s*i;
   str (s,st);
   write(‘Tich 30 so nguyen dau tien la :’, st);
   readln
   end.

   Bình luận