Опубликовано 5 лет назад по предмету Информатика от grigorydemyanenko

Напишите программу, вычисляющую и выводящую на экран 10 первых членов последовательности Фибоначчи

Ответ

Ответ дан fedrfedr

var

i: Integer;

Af: array [1..10] of Integer;

begin

Af [1] := 1; // первый член ряда равен 1
Af [2] := 1; // второй член ряда равен 1
for i := 3 to 10 do begin // цикл, начинающийся с 3-го члена до заданного (десятого)
Af [i] := Af [i - 2] + Af [i - 1]; // каждый член ряда равен сумме двух предыдущих
end;

for i := 1 to 10 do begin // вывод на экран первых 10 членов ряда
Write (Af [i], ', ');

end;

end.
// ------ 2-й вариант (без использования массива) ---------
var
a, b, c, i: Integer;
begin
a := 1;
Write (a, ', ');
b := 1;
Write (b, ', ');
for i := 3 to 10 do begin
c := a + b;
Write (c, ', ');
a := b;
b := c;
end;
end.
1. Ответ
  
  Ответ дан grigorydemyanenko
  
  это за 9 класс
2. Ответ
  
  Ответ дан grigorydemyanenko
  
  мы такое ещё не проходили
3. Ответ
  
  Ответ дан fedrfedr
  
  Нужно без использования массивов?
4. Ответ
  
  Ответ дан grigorydemyanenko
  
  вообще без массивов
5. Ответ
  
  Ответ дан fedrfedr
  
  вариант решения без массива добавлен в ответ

Самые новые вопросы

Другие предметы - 4 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Другие предметы - 4 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

История - 4 года назад

Кто такой мильтиад и какова его роль в победе над персами?

История - 4 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

География - 4 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают