Дано натуральноe n, посчитать сумму n и вывести результат на экран. s=1+1/2+1/3+1/4+1/5+1/6+...n. Написать программу а Pascal с помощью цикла с предусловием.

1

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

Лучший Ответ!
2013-11-20T20:59:04+04:00
program kokoko;
uses crt;
var i,n:integer;
k:real;
begin
i:=0;
k:=0;
writeln('Введите число n')
;
read(n);

while i<=n do
begin 
i:=i+1;  // как счетчик и кол-во раз прибавления
k:=k+(1/i);
end;
writeln('Ответ ',k:2:2); // циферки после к значат что будет 2 знака после за
end.