Viết chương trình tính S = 1*2*3-*n Với n là số nguyên nhập từ bàn phím 11 hoặc n<=10 thì yêu cầu nhập lại (sử dụng câu lệnh while - do

0 bình luận về “Viết chương trình tính S = 1*2*3-*n Với n là số nguyên nhập từ bàn phím 1<n<10 nếu n>1 hoặc n<=10 thì yêu cầu nhập lại (sử dụng câu lệnh while - do”

1. Program BTT;
   Uses crt;
   Var n,i,s: longint;
   Begin
    Clrsc

   Write(‘Nhap n: ‘); Readln(n);
    While (n<1) or (n>=10) do
     Begin
      Write(‘Yeu cau

       s:=1;
       For i:=1 to n do
                   s:=s*i;
       Write(‘S = ‘,s);
        Readln;

   Bình luận

2. Program BTT;
   Uses crt;
   Var n,i,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);

           While (n<1) or (n>=10) do
           Begin
                   Write(‘Yeu cau nhap lai: ‘); Readln(n);
           End;

           s:=1;
           For i:=1 to n do
                   s:=s*i;
           Write(‘S = ‘,s);
           Readln;
   End.

   Bình luận