Дано натуральное число N. Вычислить: S=1+1/2+1/3+1/4+…+1/N

var n,a:integer;
s:real;
begin
writeln ('введите натуральное число');
readln (n);
a:=1;
while a<=n do begin
s:=s+1/a;
a:=a+1;
end;
writeln ('сумма=',s);
end.

var n,a:integer;

s:real;

begin

writeln ('введите натуральное число');

readln (n);

a:=1;

while a<=n do begin

s:=s+1/a;

a:=a+1;

end;

writeln ('сумма=',s);

end.

Добавить комментарий Отменить ответ

Этот сайт использует Akismet для борьбы со спамом. Узнайте, как обрабатываются ваши данные комментариев.

Дано натуральное число N. Вычислить: S=1+1/2+1/3+1/4+…+1/N

Похожие записи:

Добавить комментарий Отменить ответ