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

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 .

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.