Ответы и объяснения

2013-02-06T15:08:31+00:00

program P1;
uses
crt;
var
n,i : integer;
summ : real;
begin

clrscr;

write('N = ');
read(n);

summ := 0;

for i := 1 to n do
summ := summ + 1/i;

writeln('Otvet: ',summ);

readln;
readln;

end.