Viết chương trình nhập vào số n sau đó tính tích các số từ 1 đến n.

0 bình luận về “Viết chương trình nhập vào số n sau đó tính tích các số từ 1 đến n.”

1. program tinh_tich;

   uses crt;

   var i,n:integer;

         S: longint;

   begin

     clrscr;

     write (‘ Nhap so n = ‘); readln (n);

     S;=1;

     for i:=1 to n do S:=S*i;

     writeln (‘Tich la :’,S);

     readln

   end.

   Bình luận

2. Program Hotboy;

   Uses crt;

   Var s,i,n: longint;

   Begin

   Clrscr;

   S:=1;

   Write(‘nhap n’);

   Readln(n);

   For i:=1 to n do

   S:=S*i;

   I:=i+1;

   Write(‘tich la’,S);

   Readln

   End.

   Bình luận