Viết Chương Trình Tính Tích n Số Tự Nhiên Đầu Tiên = 2 Cách dùng câu lệnh While do và for do. giúp mik vs !!!

0 bình luận về “Viết Chương Trình Tính Tích n Số Tự Nhiên Đầu Tiên = 2 Cách dùng câu lệnh While do và for do. giúp mik vs !!!”

1. program ct;

   uses crt;

   var n,i,s:integer;

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   s:=1;

   for i:=1 to n do s:=s*i;

   writeln(‘tich la’,s);

   readln

   end.

   program ct;

   uses crt;

   var s,i,n:integer;

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   s:=1; i:=1;

   while i<=1 do

   begin 

   s:=s*i;

   i:=i+1;

   end;

   writeln(‘tich la’,s);

   readln;

   end.

   Bình luận

2. cách 1: While do

   Program Hotboy ;

   Uses crt; 

   Var i,s : longint;

   Begin

   S:=1;

   Write(‘nhap n’); readln(n);

   While i <= n do

   Begin

   i:= i+1 ; S:= S*i;

   End;

   Writeln(‘tich  tu 1 den n la’,s);

   Readln

   End.

   Cách 2: For to do

   Program Hotboy ;

   Uses crt; 

   Var i,s : longint;

   Begin

   S:=1;

   Write(‘nhap n’); readln(n);

   For i:=1 to n do 

   S:=S*i;

   Writeln(‘tich  tu 1 den n la’,s);

   Readln

   End.

   Bình luận