Viết Chương Trình Tính Tích n Số Tự Nhiên Đầu Tiên Bằng 2 Cách While do và For do Viết Chương Trình Tính Tổng n Số Tự Nhiên Đầu Tiên Chẵn

0 bình luận về “Viết Chương Trình Tính Tích n Số Tự Nhiên Đầu Tiên Bằng 2 Cách While do và For do Viết Chương Trình Tính Tổng n Số Tự Nhiên Đầu Tiên Chẵn”

1. Program Tong ;

   uses crt ;

   var i , s : integer ;

   const n = 100 ;

   Begin S : = 0 ;

   i : = 1 ;

   while i < = n do Begin S : = S + i ;

   i : = i + 1 End ;

   writeln ( ‘ Tong cac so la : ‘ , s )

   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.

    Tính tổng n số chẵn

   Program Hotboy ;

   Uses crt; 

   Var i,s : longint;

   Begin

   S:=0;

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

   For i:=1 to n do 

   If i mod 2= 0 then S:=S+i;

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

   Readln

   End.

   Bình luận