Var f : real; i : integer;

f: = 1; i: = 2;

while i > 1 do begin

f: = f + 1 / i;

i : = i - 1;

end;

Question

Информатика

Златозара

21 августа, 21:34

Var f : real; i : integer;

f: = 1; i: = 2;

while i > 1 do begin

f: = f + 1 / i;

i : = i - 1;

end;

0

Ответы (1)

Знаешь ответ?

Парида · Answer 1

Var f : real; i : integer;

f: = 1; i: = 2;

while i > 1 do begin

f: = f + 1 / i;

i : = i - 1;

end;

Write (f:0:3);

end.

Ошибка в том, что нет окончания.

Var f : real; i : integer;f: = 1; i: = 2;while i > 1 do beginf: = f + 1 / i;i : = i - 1;end;

Var f : real; i : integer;

f: = 1; i: = 2;

while i > 1 do begin

f: = f + 1 / i;

i : = i - 1;

end;