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 đư

Question

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 được nhập vào từ bàn phím).

in progress 0
Khoii Minh 6 years 2020-10-17T04:36:51+00:00 3 Answers 1046 views 0

Answers ( )

  1. Thunguyet
    1
    2020-10-17T04:38:47+00:00
    Reply

    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.

  2. diemthu
    0
    2020-10-17T04:38:48+00:00
    Reply

    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.

  3. taiduc
    0
    2020-10-17T04:38:56+00:00
    Reply

    Để tìm câu trả lời chính xác các em hãy tham khảo tích 10 số tự nhiên đầu tiên bằng bao nhiêu các nguồn hoc24.vn, lazi.vn, hoidap247.com để thầy cô và các chuyên gia hỗ trợ các em nhé!

Leave an answer

Browse

Giải phương trình 1 ẩn: x + 2 - 2(x + 1) = -x . Hỏi x = ? ( )