Помогите пожалуйста 1)Var s,k:integer; begin s:=100; for k: 6 to ...

Нюра

Помогите пожалуйста 1)Var s,k:integer; begin s:=100; for k: 6 to 10do s:=s+2*k; write(s); end.2)Var s,k:integer; begins:=120; for k :10 to 20do s:=s-10; write(s); end.3)Var s,k:integer; begin s:=1; for k :2 to 7do s:=s+100; write(s); end.4)Var s,k:integer; begin s:=1; for k :3 to 8do s:=s*2; write(s); end.5)Var s,k:integer; begin s:=1; for k :1 to 7do s:=s+k; writeln(s); end.6)Var u,i :integer; begin u:=30; for k :1 to 6do u:=u-i; writeln(u); end.7)Var k.i:integer; begin k:=4; for i :1 to 3do k:=i+2*k; writeln(k); end.8)Var y, i :integer; begin y:=0; for i :1 to 3do y:=y+4*i; writeln(y); end.9)Var k,i:integer; begin k:=2; for i :0 to 2do k:=i+3*k; writeln(k); end.10)Var s,k:integer; begin s:=2; for k :1 to 3 do s:=s*s ; write(s); end.Дам 50 баллов