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

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

Question

Информатика

Хусам

14 апреля, 16:56

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

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

+5

Ответы (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