viết chương trình nhập vào n nguyên dương in ra màn hình tích của nó từ 1 đến n

0 bình luận về “viết chương trình nhập vào n nguyên dương in ra màn hình tích của nó từ 1 đến n”

1. Program BTH;
   uses crt;
   var s,i,n:word;
   Begin
           clrscr;
           write(‘Nhap n: ‘);readln(n);
           s:=1;
           For i:=1 to n do s:=s*i;
           writeln(‘Tich day so tren la: ‘,s);
           readln;
   end.

   Bình luận

2. program oken;
   uses crt;
   var n,i: integer;
       tich:longint;
   begin
           clrscr;
           write(‘nhap so n: ‘); readln(n);
           tich:=1;
           for i:=1 to n do
                   tich:=tich*i;
           writeln(‘tich: ‘,tich);
           readln;
   end.

   Bình luận