Sử dụng câu lệnh lặp While … do để viết chương trình: Tính tích của N số tự nhiên đầu tiên với số lần lặp không xác định (với N là số tự nhiên đư

0 bình luận về “Sử dụng câu lệnh lặp While … do để viết chương trình: Tính tích của N số tự nhiên đầu tiên với số lần lặp không xác định (với N là số tự nhiên đư”

1. Program hillsnguyen;

   Var N,i,:Integer;

          S : longint;

   Begin

   Writeln (‘Nhap N = ‘);

   Readln(N);

   S:=1;

   i:=1;

   While i<= N do 

   Begin

   S:=S*i;

   i:=i+1;

   End;

   Writeln (‘S = ‘ S);

   Readln;

   End.

   Bình luận

2. Program BTH;
   uses crt;
   var i,n:longint;
   s:word;
   Begin
           clrscr;
           write(‘Nhap n: ‘);readln(n);
           s:=1;
           While i<>n do
           Begin
                   i:=i+1;
                   s:=s*i;
           end;
           write(‘Tich cac so tren la: ‘,s);
           readln;
   end.

   Bình luận