напечатать последовательность из естественных чисел, образованную дробями в которой числитель

Напечатать последовательность из натуральных чисел, интеллигентную дробями в которой числитель последующего члена последовательности выходит сложением числителей , а знаменатель - сложением знаменателей двух прошлых членов. Числитель первых 2-ух членов одинаковы 1, знаменатели равны 1 и 2 (1/1,1/2, 2/3, 3/5,...)
пожалуйста сможете дать более развернутый ответ, а то я вообщем не понимаю паскаль

Задать свой вопрос
Галина Щекоткова
Тогда в чём проблема? У меня на ABC.net запускается...
Евгения Цыцорина
строчка 6: Параметр цикла for в PascalABC.NET обязан описываться в заголовке цикла
Виктор Запорожко
Пожалуйста, обновите PascalABC.net
Валентина Гороткова
сегодня скачал
Valerija Firnasova
Работает: n = 301/1 1/2 2/3 3/5 5/8 8/13 13/21 21/34 34/55 55/89 89/144 144/233 233/377 377/610 610/987 987/1597 1597/2584 2584/4181 4181/6765 6765/10946 10946/17711 17711/28657 28657/46368 46368/75025 75025/121393 121393/196418 196418/317811 317811/514229 514229/832040 832040/1346269
Степан Якимичев
Ошибка такая возникает, но с ней прога всё одинаково работает
Женек Станишевский
у меня окно вывода возникает n=30
Валерия Конахина
Можно написать и так...
Елена Пидодня
Var A,B,D,n:integer;BeginWrite('n = ');ReadLn(n);A:=1;B:=1;For var i:= 1 to n do Begin D:=A; A:=A+B; Swap(A,B); Write(D,'/',A,' '); End;End.
Тимур Сатердионов
спасибо огромное. тупанул
1 ответ
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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт