Question

Пожалу та не как в комп а в тетради написать надо пж очеееееенььььь

Answer 1

Program z1;  Var i:integer; s:real;Begin  s:=1;  i:=2;  While i<=10 do  begin    s:=s+1/i;    i:=i+1;  end;  write(s);End. 

Answer 2

вторая задача