Var f : real; i : integer;

f: = 1; i: = 2;

while i > 1 do begin

f: = f + 1 / i;

i : = i - 1;

end;

Question

Информатика

Олесея

14 января, 04:49

Var f : real; i : integer;

f: = 1; i: = 2;

while i > 1 do begin

f: = f + 1 / i;

i : = i - 1;

end;

+1

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