напечатать последовательность из натуральных чисел, образованную дробями в которой числитель следующего члена последовательности получается сложением числителей , а знаменатель - сложением знаменателей двух предыдущих членов. Числитель первых двух членов равны 1, знаменатели равны 1 и 2 (1/1,1/2, 2/3, 3/5,...)
пожалуйста можете дать более развернутый ответ, а то я вообще не понимаю паскаль
Ответы
Ответ дал:
0
Var A,B,D,n:integer;
Begin
Write('n = ');ReadLn(n);
A:=1;
B:=1;
For n:= 1 to n do
Begin
D:=A;
A:=A+B;
Swap(A,B);
Write(D,'/',A,' ');
End;
End.
Begin
Write('n = ');ReadLn(n);
A:=1;
B:=1;
For n:= 1 to n do
Begin
D:=A;
A:=A+B;
Swap(A,B);
Write(D,'/',A,' ');
End;
End.
Похожие вопросы
2 года назад
2 года назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад