Viết trương trình tính tích N số tự nhiên đầu tiên, với N được nhập từ bàn phím. a. Sử dụng câu lệnh lặp for… do

0 bình luận về “Viết trương trình tính tích N số tự nhiên đầu tiên, với N được nhập từ bàn phím. a. Sử dụng câu lệnh lặp for… do”

1. b.

   var i,n: integer;

   s:longint;

   begin

   write(‘nhap so n=’);readln(n);

   s:=0;

   i:=1;

   while i<=n do

   begin

   s:=s+i; i:=i+1;

   end;

   write(‘tong cua’,n,’ so tu nhien dau tien la’,s);

   readln

   end.

   Bình luận

2. a/

   Program BTH;
   Uses Crt;
   var s,n,i:longint;
   Begin
           clrscr;
           Write(‘Nhap n: ‘);readln(n);
           s:=1;
           For i:=1 to n do
           Begin
                   s:=s*i;
           end;
           Writeln(‘Tong day so trong day la: ‘,s);
           readln;
   end.

   b/

   Program BTH;
   Uses Crt;
   var s,n,i:longint;
   Begin
           clrscr;
           Write(‘Nhap n: ‘);readln(n);
           s:=1;
           i:=1;
           While i<=n do
           Begin
                   s:=s*i;
                   i:=i+1;
           end;
           Writeln(‘Tong day so trong day la: ‘,s);
           readln;
   end.

   Bình luận