Сформировать массив из чисел фибоначчи небольших заданного натурального n, вывести на экран значение электронного массива являющимся простыми числами

Program DZ;
var n,i,k,j,f:longint;
  a:array [1..10000] of longint;
begin
  k:=0;
  read (n);
  a[1]:=1;
  a[2]:=1;
  for i:=3 to 10000 do
    begin
      if not(a[i-1] < n) then
      begin
        break
      end;
      a[i]:=a[i-1]+a[i-2];
      k:=k+1
    end;
  for i:= 1 to k do
    begin
      f:=0;
      for j:=2 to a[i]-1 do
        if a[i] mod j=0 then f:=1;
      if f=0 then write (a[i],' ');
    end;
end.

Это для Pascal

1. 9

2.15

3. 0

4. 48

5. 5

6. 60

7. 3

8.

9. 48

10. 26

Объяснение:

Если мы напишем программу, то она сможет посчитать кол-во, повторений. В 3 почему 0, это из-за того что цикл не выполниться ни разу. В 4 почему 48, да потому что мы от 8 - 3 = 5, значит цикл повториться 5 раз, следовательно идём таким путём:

0. S = 8;

1.  S = 16; // 8 + 8

2. S = 24. // 16 + 8

3. S = 32; // 24 + 8

4. S = 40; // 32 + 8

5. S = 48 // 40 + 8

10 Вопрос можно решить и вторым кстати он считается как самый быстрый.

С = 50;

1. 9 - 1 = 8, цикл должен выполниться 8 раз

2. Мы видем что в теле программы c = c - 3, значит 8 * 3 = 24

3.  Следовательно c = 50 - 24

ответ 26

Жирным выделил правильный вариант

Объяснение:

Много ! Кто не знает- не лезьте

Отмечу лучший, если всё правильно

В качестве гипертекстовых ссылок можно использовать:

а)слово, группу слов или картинку,при подведении мыши к которымее курсор принимает формучеловеческой руки

2) только картинку

3) только слово

Какой из циклов вне зависимости от результата условия выполнит тело цикла хотя бы раз? *

цикл с постусловием

цикл с предусловием

цикл с параметром

Сколько раз будет выполнено (тело цикла) в следующем фрагменте программы: for:=20 to 10 do(тело цикла)? *

о раз

-10 раз

10 раз

Web-страница представляет собой ... *

Текстовый файл с расширением htm или html

Текстовый файл с расширением txt или doc

Двоичный файл с расширением com или exe

Графический файл с расширением gif или jpg

Браузеры (например, Microsoft Internet Explorer) являются *

трансляторами языка программирования

средством просмотра web-страниц

серверами Интернет

антивирусными программами

Какой из циклов выполняет известное количество повторений? *

цикл с постусловием

цикл с предусловием

цикл с параметром

Какой из циклов может и не выполнять действия после условия, а осуществлять выход сразу из цикла? *

цикл с параметром

цикл с постусловием

цикл с предусловием

Фрагмент программы, который будет выполняться раз за разом, пока выполняется условие - это ... *

цикл

тело цикла

фрагмент программы