Question

Надо С помощью Паскаль и безусловных циклов .Информатика 9 класс.Срочно нужно и что бы программа работала .

Answer 1

var n,i:integer;

s:real;

begin

s:=0;

readln(n);

for i:=1 to n do

s:=s+1/i;

writeln('ответ ',s:10:5);

end.