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

0 bình luận về “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. 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.

   Bình luận