Viết chương trình tính tích các số từ 1 đến n vs n nhập vào từ bàn phím, n nguyên dương .

0 bình luận về “Viết chương trình tính tích các số từ 1 đến n vs n nhập vào từ bàn phím, n nguyên dương .”

1. Program BTH;
   uses crt;
   var n,i:longint;
   s:word;
   begin
           clrscr;
           Repeat
           write(‘Nhap n: ‘);readln(n);
           If n mod 2=1 then
                   writeln(‘So nhap khong hop le moi nhap lai’);
           until n>0;
           s:=1;
           For i:=1 to n do
                   s:=s*i;
           write(‘Tong day so tren la: ‘,s);
           readln;
   end.

   Bình luận

2. program oken;
   uses crt;
   var n,i: integer;
       t: qword;
   begin
           clrscr;
           write(‘nhap 1 so n: ‘); readln(n);
           t:=1;
           for i:=1 to n do
                t:=t*i;
           Writeln(‘tich cua cac so tu 1 den ‘,n,’: ‘,t);
           readln;
   end.

   Bình luận