Var f : real; i : integer;

f: = 1; i: = 2;

while i > 1 do begin

f: = f + 1 / i;

i : = i - 1;

end;

Question

Информатика

Терек

23 февраля, 22:17

Var f : real; i : integer;

f: = 1; i: = 2;

while i > 1 do begin

f: = f + 1 / i;

i : = i - 1;

end;

+5

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