Question

Здравствуйте. Кто разбирается в информатике, прошу помогите.
1) С клавиатуры вводятся N натуральных чисел. Вычислите произведение каждого 2-го из чисел.
2) С клавиатуры вводится натуральное число N
(N>2). Вычислите и выведите на экран N первых членов последовательности Фибоначчи.
(В Паскале с использованием операции for )

Answer 1

1:

program prog;

var i,n,s,a:integer;

var chk:boolean;

begin

   chk:=False;

   s:=1;

   write('Введите количество вводимых чисел: '); readln(n);

   for i:=1 to n do

   begin

       write('Введите ', i, '-е число: '); readln(a);

       if i mod 2 = 0 then

       begin

           s:=s*a;

           chk:=True;

       end;

   end;

   if chk = False then s:=0;

   write('Произведение чётных членов введённой последовательности равно ', s);

end.

2:

program fib;

var

   F1,F2,n,i :Integer;

begin

   write('Введите количество чисел Фибоначчи: '); readln(n);

   F1:=1;

   F2:=1;

   For i:=1 to n do

   begin

       if i>2 then

       begin

           F1:=F1+F2;

           F2:=F1-F2;

       end;

       write(F1, ' ');

   end;

end.