бросить программку Pascal вывода на экран n чисел Фибоначчи

Бросить программку Pascal вывода на экран n чисел Фибоначчи

Задать свой вопрос
2 ответа
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
  SeqGen(ReadInteger('n='),1,1,(x,y)-gt;x+y).Println
end.

Тестовое решение:
n= 10
1 1 2 3 5 8 13 21 34 55
Числа Фибоначчи  это элементы числовой последовательности, в которой каждое последующее число равно сумме 2-ух прошлых.

var a,b,c,i,n: integer;
begin
     write('Введи n = ');
     readln(n);
     a := 0;
     write(a,' ');
     b := 1;
     write(b,' ');
     for i:=3 to n do begin
           write(a+b,' ');
           c := b;
           b := a + b;
           a := c
    end;
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт