Mọi người giúp em với ạ: Viết chương trình nhập vào số nguyên N.Tính và xuất kết quả A.Biết A:=1*2*3*4*…*N

0 bình luận về “Mọi người giúp em với ạ: Viết chương trình nhập vào số nguyên N.Tính và xuất kết quả A.Biết A:=1*2*3*4*…*N”

1. program oken;
   uses crt;
   var n,i,a:longint;
   begin
           clrscr;
           write(‘nhap so N: ‘); readln(n);
           a:=1;
           for i:=1 to n do
                   a:=a*i;
           writeln(‘Tich A=’,a);
           readln;
   end.

   Bình luận

2. program tinhtich;

   var i, N,A : integer;

   begin clrscr;

   writeln(‘Nhap n = :’); readln(n);

   A :=1;

   For i :=1 to n do A:= A*i;

   Writeln(‘Ket qua cua A la :’, A);

   readln

   End.

   Bình luận