Exercícios Práticos

1) Pogram Pzim;

Var x,t,y,termo:Real;

Begin 

Writeln(‘x’,’sem(x)’,’f(x)’);

For x:=5 to 10 do

Begin

y: sen(x);

F:=0;

For t:= 1+20 do

Termo:=1/(t*x)(t-1);

f:=f+termo;

End;

Writeln(x,y,f);

End.