Задать вопрос
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;

+4
Ответы (1)
  1. 21 августа, 22:31
    0
    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 begin f: = f + 1 / i; i : = i - 1; end; ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы