sử dụng câu lệnh while …do viết chương trình tính tích với các số tự nhiên chẵn nhỏ hoặc bằng n

0 bình luận về “sử dụng câu lệnh while …do viết chương trình tính tích với các số tự nhiên chẵn nhỏ hoặc bằng n”

1. program so_chan;

   uses crt;

   var n,i,S: integer;

   Begin

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

            S:=1;  i:=1;

            while i<=n do

            begin

                     if i mod 2=0 then S:=S*i;

                     i:=i+1;

            end;

            write(‘S= ‘,S);

            readln

   End.

   Bình luận