Bài 1:Viết chương trình pascal: (sử dụng biến for...to...do...) a, S=$\frac{1}{1*2}+$ $\frac{1}{2*3}+$ $\frac{1}{3*4}+...+$ $\frac{1}{99*100}$ b,T=50*51*52*...*150

Câu a:

uses crt;

var i,S:integer;

begin

S:=0;

for i:=1 to 99 do S:=S+1/(i*(i+1));

writeln(S);

readln;

end.

Câu b,

uses crt;

var i,T:integer;

begin

T:=1;

for i:=50 to 150 do T:=T*i;

writeln(T);

readln;

end.

`a) ``S=1/(1*2)+1/(2*3)+....+1/(99*100)`

uses crt;
var i:integer;
T:real;
begin
clrscr;
for i:=1 to 99 do
T:=1/(i*i+1);
writeln('T=',t:3:2);
readln
end.

`b)``T=50xx51xx...xx150`

uses crt;
var i,T:integer;
begin
clrscr;
T:=1;

for i:=50 to 150 do
T:=T*i;
writeln('T=',t);
readln
end.