viết chương trình tích của các số tự nhiên từ 1 đến n bằng vòng lặp while

0 bình luận về “viết chương trình tích của các số tự nhiên từ 1 đến n bằng vòng lặp while”

1. Uses crt;

   Var i,n : integer;

   s : real;

   Begin

   Clrscr;

   Write(‘Nhap so n=’);

   Readln(n);

   S:=1; i:=1;

   While i<=n do begin s:=s*i; i:=i+1 end;

   write(‘tich la’, s);

   readln

   end.

   Nhập thấy sai gì báo mình sửa cho

   Bình luận

2. uses crt;

   var i,n : integer;

   s : longint;

   Begin clrscr;

   s:=1; i:=1;

   Write(‘Nhap n=’); readln(n);

   While i < n then

   begin

   s:=s*i;

   i:=i+1;

   end;

   write(‘Tich s=’, s);

   readln

   end.

   Bình luận