S=1+1/2+1/3+1/4 + ... + 1/n

pascal. решить с циклом While

Question

Информатика

Герайда

14 апреля, 16:37

S=1+1/2+1/3+1/4 + ... + 1/n

pascal. решить с циклом While

+4

Ответы (1)

Знаете ответ на вопрос?

Сютиш · Answer 1

Program abc;

var

n, i: integer;

s: real;

begin

write ('Введите n: ') ;

readln (n) ;

for i : = 1 to n do

s : = s + 1 / i;

write ('s = ', s) ;

end.

S=1+1/2+1/3+1/4 + ... + 1/npascal. решить с циклом While

S=1+1/2+1/3+1/4 + ... + 1/n

pascal. решить с циклом While