Viết chương trình nhập vào một số nguyên dương n, in ra màn hình tích của chúng

0 bình luận về “Viết chương trình nhập vào một số nguyên dương n, in ra màn hình tích của chúng”

1. uses crt;

   var n,i,s :integer;

   begin

   clrscr;

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

   s:=0;

   for i:=1 to n do

   if n mod i:=0 then

   begin

   s:=s+i;

   writeln(s);

   end;

   readln;

   end.

   Bình luận

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

   Bình luận