Пожалуйста, помогите составить блок-схему по
И, пожалуйста, если сможете, с объяснением.
Заранее большое спасибо.с:
Ответы
Ответ дал:
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.
Вас заинтересует
2 года назад
2 года назад
8 лет назад
8 лет назад
10 лет назад
10 лет назад
10 лет назад