Question

Написать код в паскале! 4.С клавиатуры вводится число n. Заполнить n элементов массива числами 1,2,4,7,11...И вывести его.В массиве может находиться не более 100 элементов. 5.Значение элементов массива вводятся до нуля. Посчитайте произведение значений его элементов. Надо очень срочно решить!! Выручайте!!

Answer 1

Ответ:

жієвжжвжвжвжзазвззцззцзжсзсзсзсзчібвбвдвжвжвззвзвзвзвзвзвзцзцзузвз

ЖАЖАЗАЖЖВДАЖЖМСЖ

Объяснение:

лвдвддвщвщЛВЛВЖІБВБЩВЙЗЄАЮЮСЗС

СЩВЩДАДАДАЖАЗЗС

ЖАЖЄЄВЖАЖМЖМ

Answer 2

Задача 4: Заполнение массива и вывод его элементов

Для решения данной задачи вам потребуется написать код на языке Pascal. В этом коде мы будем заполнять массив числами 1, 2, 4, 7, 11 и так далее, в зависимости от введенного числа n. Затем мы выведем элементы этого массива.

Вот пример кода на Pascal, который решает данную задачу:

program FillArray;
var
  n, i: integer;
  arr: array[1..100] of integer;
begin
  write('Введите число n: ');
  readln(n);

for i := 1 to n do
  begin
    if i = 1 then
      arr[i] := 1
    else if i = 2 then
      arr[i] := 2
    else
      arr[i] := arr[i-1] + (i-1);

write(arr[i], ' ');
  end;

writeln;
end.

В этом коде мы сначала объявляем переменные `n` и `i`, а также массив `arr` размером 100 элементов. Затем мы считываем число `n` с клавиатуры.

Далее мы используем цикл `for` для заполнения массива `arr`. Внутри цикла мы проверяем текущее значение `i` и присваиваем элементу массива соответствующее значение. Затем мы выводим каждый элемент массива на экран.

После выполнения программы, вы увидите заполненный массив на экране.

Задача 5: Подсчет произведения элементов массива

Для решения данной задачи вам также потребуется написать код на языке Pascal. В этом коде мы будем считывать значения элементов массива до тех пор, пока не будет введен ноль, и затем посчитаем произведение этих значений.

Вот пример кода на Pascal, который решает данную задачу:

program CalculateProduct;
var
  num, product: integer;
begin
  product := 1;

repeat
    write('Введите число (для завершения введите 0): ');
    readln(num);

if num <> 0 then
      product := product * num;
  until num = 0;

writeln('Произведение значений элементов массива: ', product);
end.

В этом коде мы сначала объявляем переменные `num` и `product`. Переменная `product` инициализируется значением 1.

Затем мы используем цикл `repeat...until`, чтобы считывать значения элементов массива с клавиатуры до тех пор, пока не будет введен ноль. Внутри цикла мы проверяем, не равно ли введенное число нулю, и если это так, то умножаем его на текущее значение `product`.

После завершения цикла мы выводим на экран значение переменной `product`, которое является произведением значений элементов массива.

Надеюсь, эти примеры кода помогут вам решить задачи! Если у вас возникнут еще вопросы, не стесняйтесь задавать их.