Циклы с параметром

[opt1k]

Помогите написать код программы PascalABCNET

[Hemul]

s:=n;
for i:=n-1 to 1 do
       s:=n/(1+s);

Я думаю вот так, для n=2 и 3 проверил.

[opt1k]

Сообщение от Hemul

s:=n;
for i:=n-1 to 1 do
       s:=n/(1+s);

Я думаю вот так, для n=2 и 3 проверил.

можешь полностью программу написать.

[Hemul]

А что там полностью писать? Сам объяви переменные s - real, n - Integer , введи n. После алгоритма выведи s.

[opt1k]

Сообщение от Hemul

А что там полностью писать? Сам объяви переменные s - real, n - Integer , введи n. После алгоритма выведи s.

что-то не робит что я написал

[BDA]

opt1k, показывайте, что написали.

что-то не робит что я написал

Ну так покажите нам
Бить не будем)

[opt1k]

что-то не робит что я написал

[opt1k]

Сообщение от BDA

opt1k, показывайте, что написали.


Ну так покажите нам
Бить не будем)

uses crt;
var s: real;
i,n:integer;
begin
writeln('Введите n');
readln;
s:=n;
for i:=n-1 to 1 do
s:=n/(1+s);
writeln('Полученное s');
readln;

end.

написал но не то поди

[BDA]

Практически правильно.

uses crt;
var
  s: real;
  i, n: integer;
begin 
  writeln('Введите n');
  readln(n);
  s := n;
  for i := n - 1 downto 1 do
    s := i / (1 + s); //мне кажется, нужно так
  writeln('Полученное s ', s:0:10);
  readln;
end.

[opt1k]

Сообщение от BDA

Практически правильно.

uses crt;
var
  s: real;
  i, n: integer;
begin 
  writeln('Введите n');
  readln(n);
  s := n;
  for i := n - 1 downto 1 do
    s := i / (1 + s); //мне кажется, нужно так
  writeln('Полученное s ', s:0:10);
  readln;
end.

благодарю за помощь