1) Найти сумму 1/2+1/4+1/6…

Program h; var i: integer; s: real; begini: =0; while i <= 20 dobegini: =i+2; s: =s+1/i; end; writeln (s); end. Program h2; var i: integer; s: real; beginfor i: =2 to 20 dobeginif (i mod 2=0) then s: =s+1/i; end; writeln (s); end.3) program chik; var a,n,p,i: integer; begin read (a,n); i: =2; p: =a; whiel i <= n dobegini: =i+1; p: =p*a; end; writeln (p); end. Если непонятно пиши что непонятно (надеюсь поймеш) и я отвечу на вопросы