Числа Фибоначчи

Задача: 

Вывести на экран ряд чисел Фибоначчи, состоящий из n элементов.

Числа Фибоначчи – это элементы числовой последовательности
0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, …, в которой каждое последующее число равно сумме двух предыдущих.

Описание переменных: 

n – количество элементов ряда;
a, b – значения двух последних элементов ряда;
c – буферная («запасная») переменная;
i – счетчик.

Алгоритм решения задачи: 

1. Получить значение n.
2. Присвоить a и b значения 0 и 1 соответственно (это первые числа ряда Фибоначчи). Вывести их на экран.
3. Начиная с 3-го элемента по n,
a. выводить на экран сумму a и b,
b. сохранить значение переменной b в c,
c. записать в b сумму a и b,
d. присвоить a значение с.

Программа на языке Паскаль: 

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;
 
readln
end.

Комментарии

Составление программ, предназначенных для нахождения суммы ряда

https://pp.vk.me/c624031/v624031706/57a0c/SIdB4T8tP9Y.jpg
https://pp.vk.me/c624031/v624031706/57a13/h2v4J0Qq92A.jpg
https://pp.vk.me/c624031/v624031706/57a1c/8IpRw9rdYJs.jpg
https://pp.vk.me/c624031/v624031706/57a25/RlZE7JgA9o4.jpg

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

подскажите проггу для abc

подскажите проггу для abc паскаль.Задача такая:определить первые 8 чисел из ряда фиббоначи,которые являются простыми

Дано ціле непарне число n (

Дано ціле непарне число n ( 0 < n < 100 ). Розташувати в квадратній таблиці розміром n*n послідовність натуральних чисел 1, 2, …, n2 таким чином, щоб найменше число знаходилося в центрі, а всі наступні заповнювали таблицю послідовно по контурах, починаючи з верхнього лівого кута кожного наступного контуру.
Вхідні дані: у єдиному рядку вхідного файлу tabl.in записано число n.
Вихідні дані: у вихідний файл tabl.out вивести одержану таблицю.

по контуру слишком сложно

по контуру слишком сложно

А зачем нужны эти строчки:

А зачем нужны эти строчки: с:=b;
b:=a+b;
a := c;
Пожалуйста обьясгите по-подробнее а то я в програмирование не силен)

переменной b присвоить(знак

переменной b присвоить(знак присвоения(:=)) суму чисел а и b
переменной а присвоить число пременной с

Вибачте, трохи помилився, повинно бути ось так 100% :

var a,b,c,i,n: integer;
begin
write('n = ');
readln(n);
a := 0;
b := 1;
if n>1 then write(a,' ',b,' ') else if n=1 then write(a);
for i:=3 to n do begin
write(a+b,' ');
c := b;
b := a + b;
a := c
end;
end.

Тут не враховано, що якщо

Тут не враховано, що якщо користувач вводить число 0 або 1, то воно в будь-якому випадку виводить числа 0 та 1, ось такий код буде працювати у всих випадках:

var
    a,b,c,i,n: integer;
begin
    write('n = ');
    readln(n);
 
    a := 0;
    if n=0 then ;;
    b := 1;
    if n>1 then write(b,' ') else ;;
    for i:=3 to n do begin
        write(a+b,' ');
        c := b;
        b := a + b;
        a := c
    end;
 
readln
end.

а как надо написать программу

а как надо написать программу для вычисления n-ого числа Фибоначи с использованием рекурсивной функции и итерациональной процедуры?

var

var a,b,c,n,i:longint;
begin
a:=1; b:=1;
i:=3;
readln(n);
if n<=2 then writeln(b)
else begin
while i<=n do begin
c:=a+b; b:=a; a:=c; i:=i+1; end;
writeln(c); end;
end.

а как по заданому числу

а как по заданому числу вывести его номер?

через команду case

через команду case

как-то так

function FindNumber(n: integer): integer;
var
  a, b, c, i: integer;
begin
  a := 0;
  b := 1;
 
  if (n = a) then
  begin
    result := 1;
    exit;
  end;
 
  if (n = b) then
  begin
    result := 2;
    exit;
  end;
 
  i := 2;
  while (b <= n) do
  begin
    c := b;
    b := a + b;
    a := c;
 
    i := i + 1;
 
    if (b = n) then
    begin
      result := i;
      exit;
    end;
  end;
 
  result := -1;
end;

Помогите написать алгоритм,

Помогите написать алгоритм, выводящий число, которое находится на 150 месте в последовательности Фибоначчи

var a,b,c,i:

var
    a,b,c,i: integer;
begin
    a := 0;
    b := 1;
    write(b,' ');
    for i:=3 to 150 do begin
        c := b;
        b := a + b;
        a := c
    end;
    writeln(b);
end.

типа longint не хватает,

типа longint не хватает, чтобы их вывести!!! Что делать?

Тип данных побольше.

extended - самый большой целочисленный тип данных. Но в abc.pascal его нет, только freepascal или turbopascal.