Tin 2

TIN
Bài 1 :
Program Tinh_tong;
Uses crt;
Var i,n : integer;
T : real;
Begin
Clrscr;
Write (‘Nhap n = ‘); readln (n);
T:=0;
For i:=1 to n do
Begin T:=T+1/i; readln (T);
End;
Write (‘Tong cua day so do la’, T);
Readln;
End.
Bài 2 :
Program Tinh_tong;
Uses crt;
Var i,m,T :integer;
Begin
Clrscr;
Write (‘Nhap m’); readln (m);
T:=0;
For i:=1 to m do
Begin T:=T+I; readln (T);
End;
Write (‘Tong cua day so do la’,T);
Readln
End.
3)
Program Tinh_tong;
Uses crt;
Var i,n,t :longint;
Begin
clrscr;
Write (‘Nhap n’); readln (n);
T:=0;
For i:=1 to n do
Begin
If i mod 2 = 0 then T:=T+0
Else T:=T+I;
Readln (T);
End;
Write (‘Tong cua day so le do la’,T);
Readln;
End.
4)
Program Tinh_tong;
Uses crt;
Var i,p,t :longint;
Begin
clrscr;
Write (‘Nhap p’); readln (p);
T:=0;
For i:=1 to p do
Begin
If i mod 2 = 0 then T:=T+I
Else T:=T+0;
Readln (T);
End;
Write (‘Tong cua day so le do la’,T);
Readln;
End.
5) program Tinh_dientich_hinhthang;
Uses crt;
Var dientich:longint;
Const daylon : = 18;
daynho:=8;
duongcao:=10;
Begin
Clrscr;
Dientich:=(daylon+daynho)/2*duongcao;
Readln (dientich);
Write (‘Dien tich hinh thang la’,dientich);
Readln
End.