Предмет: Информатика,
автор: korshyyn
Пожалуйста, помогите составить блок-схему по
И, пожалуйста, если сможете, с объяснением.
Заранее большое спасибо.с:
Ответы
Автор ответа:
0
var y: real;
i, n: integer;
begin
readln(n);
for i := 0 to n do
y := y + 1 / (1 + y);
writeln(y);
end.
i, n: integer;
begin
readln(n);
for i := 0 to n do
y := y + 1 / (1 + y);
writeln(y);
end.
Похожие вопросы
Предмет: Математика,
автор: molniyapolinka
Предмет: Математика,
автор: mandarinki1603
Предмет: Химия,
автор: Voldemortik
Предмет: История,
автор: Нимфодора
Предмет: Алгебра,
автор: сано20