dùng 2 lệnh for.to.do và while.do vt chương trình tính tích sau N=1*2*3*…*50 dùng 2 lệnh for.to.do và while.do vt chương trình in ra dãy số sau 1

Question

dùng 2 lệnh for.to.do và while.do vt chương trình tính tích sau
N=1*2*3*…*50
dùng 2 lệnh for.to.do và while.do vt chương trình in ra dãy số sau
1,1,2,3,5,8,13,…,n

in progress 0
Sadie 1 năm 2021-07-20T13:47:34+00:00 1 Answers 5 views 0

Answers ( )

    0
    2021-07-20T13:48:54+00:00

    Câu 1:

    Dùng For…to…do:

    program tong;

    uses crt;

    var i,N: byte;

    Begin

             clrscr;

             N:=1;

             for i:=1 to 50 do N:=N*i;

             write(‘N = ‘,N);

             readln

    End.

    Dùng While…do:

    program tong;

    uses crt;

    var i,N: byte;

    Begin

             clrscr;

             N:=1;  i:=1;

             while i<=50 do

             begin

                      N:=N*i;

                      i:=i+1;

             end;

             write(‘N = ‘,N);

             readln

    End.

    Câu 2:

    Dùng For…to…do:

    program day_so;

    uses crt;

    var n,i: integer;

    Begin

             clrscr;

             write(‘Nhap n: ‘); readln(n);

             write(‘Day so tu 1 den ‘,n,’ la: ‘);

             for i:=1 to n do write(i,’, ‘);

             readln

    End.

    Dùng While…do:

    program day_so;

    uses crt;

    var n,i: integer;

    Begin

             clrscr;

             write(‘Nhap n: ‘); readln(n);

             write(‘Day so tu 1 den ‘,n,’ la: ‘);

             while i<=n do

             begin

                      write(i,’, ‘);

                      i:=i+1;

             end;

             readln

    End.

Leave an answer

Browse

35:5x4+1-9:3 = ? ( )