работа по простым циклам. Паскаль.

[Макс Мел]

Прошу помочь, т. к. сам до конца не могу разобраться

[Hacker19_90]

контакты ниже!

[Mad_Cat]

в 1 задании по моему зпт потеряли

(1+sin(1,0));

1

var i:integer;
begin
for i:=1 to 10 do
writeln('1+sin',i/10,'=',1+sin(i/10):6:3);
end.

2

var n:integer;
s:real;
begin
s:=0;
readln(n);
while (n>0) do
begin
s:=s+1/n;
dec(n);
end;
writeln('s=',s:6:3);
end.

3

var v,v1,v2,v3:real;
i,n:integer;
begin
readln(n);
v:=0;
v1:=0;
v2:=1.5;
For i:=4 to n do
begin
v3:=(i+1)/(i*i+1)*v2-v1*v;
Writeln('v[',i,']=',v3);
v:=v1;v1:=v2;v2:=v3;
end;
end.

4

var i,n:integer;
begin
readln(n);
For i:=0 to n do
writeln('x=',1+0.1*i,' y=',(sqr(1+0.1*i)-3*(1+0.1*i)+2)/sqrt(2*sqr(1+0.1*i)*(1+0.1*i)-1));
end.

5

var k:integer;
s:real;
x:real;
begin
s:=0;
readln(x);
k:=1;
while (1/(sqr(x)+k*k*k))>=0.000001 do
begin
s:=s+(1/(sqr(x)+k*k*k));
inc(k)
end;
writeln('s=',s:9:6);
end.

[Макс Мел]

большое спасибо!