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.

Answer 2

Конечно, я могу помочь вам написать программу на Pascal для выполнения этих двух задач. Вот код на Pascal:

1. Для вычисления произведения каждого второго числа из введенных N натуральных чисел:

pascalCopy code
program CalculateProduct;

var
  N, i, number, product: integer;

begin
  write('Введите количество чисел N: ');
  readln(N);
  
  product := 1;
  
  for i := 1 to N do
  begin
    write('Введите число: ');
    readln(number);
    
    if i mod 2 = 0 then
      product := product * number;
  end;
  
  writeln('Произведение каждого второго числа: ', product);
end.

2. Для вычисления и вывода на экран первых N членов последовательности Фибоначчи:

pascalCopy code
program FibonacciSequence;

var
  N, i, a, b, temp: integer;

begin
  write('Введите количество членов последовательности Фибоначчи (N > 2): ');
  readln(N);
  
  a := 0;
  b := 1;
  
  if N >= 1 then
    writeln('Члены последовательности Фибоначчи:');
  
  writeln(a);
  writeln(b);
  
  for i := 3 to N do
  begin
    temp := a + b;
    writeln(temp);
    a := b;
    b := temp;
  end;
end.

Эти программы позволят вам выполнить задачи, описанные в вашем вопросе, на языке Pascal. Вы можете скомпилировать и выполнить их на своем компьютере.