Var f : real; i : integer;
f: = 1; i: = 2;
while i > 1 do begin
f: = f + 1 / i;
i : = i - 1;
end;
f: = 1; i: = 2;
while i > 1 do begin
f: = f + 1 / i;
i : = i - 1;
end;
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 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.
Ошибка в том, что нет окончания.
f: = 1; i: = 2;
while i > 1 do begin
f: = f + 1 / i;
i : = i - 1;
end;
Write (f:0:3) ;
end.
Ошибка в том, что нет окончания.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
