Для заданного натурального n и действительного x подсчитать сумму S=1+1/2+1/3+...+1/n

(программа в паскале)

marius95 marius95    2   03.01.2021 16:36    272

Ответы
ryzhij ryzhij  12.02.2021 22:01

var n,i:integer;

s:real;

begin

write('Введите число N - '); readln(n);

for i:=1 to n do  

s:=s+(1/i);

write(s:0:4);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика