Question

Информатика 10 класс 1) Написать функцию ,которая выдаёт истину ,если число четное и если ложь - нечетное. 2) Написать процедуру ,которая заменяет все четные числа в массиве 0 и выводит результат на экран.

Answer 1

1)function chet(a:longint):boolean;
begin chet:=(a mod 2)=0; end;
2) procedure z(var a:array of longint;length:longint);
var i:longint;
begin
for i:=1 to length do
begin
if not odd(a[i]) then a[i]:=0;
write(a[i],' ');
end;
end;

Answer 2

Функция, которая выдаёт истину, если число четное, и ложь - нечетное

Для решения данной задачи можно написать функцию, которая будет принимать число в качестве аргумента и возвращать истину, если число четное, и ложь, если число нечетное. В языке программирования Python это можно сделать следующим образом:

def is_even(number):
    if number % 2 == 0:
        return True
    else:
        return False

В данном коде мы используем оператор `%` для проверки остатка от деления числа на 2. Если остаток равен 0, то число четное, и функция возвращает истину. В противном случае, функция возвращает ложь.

Процедура, которая заменяет все четные числа в массиве на 0 и выводит результат на экран

Для решения данной задачи можно написать процедуру, которая будет принимать массив чисел в качестве аргумента, заменять все четные числа на 0 и выводить результат на экран. В языке программирования Python это можно сделать следующим образом:

def replace_even_with_zero(array):
    for i in range(len(array)):
        if array[i] % 2 == 0:
            array[i] = 0
    print(array)

В данном коде мы используем цикл `for` для перебора всех элементов массива. Если текущий элемент массива является четным числом (остаток от деления на 2 равен 0), то мы заменяем его на 0. После завершения цикла, мы выводим измененный массив на экран с помощью функции `print()`.

Пример использования процедуры:

my_array = [1, 2, 3, 4, 5, 6]
replace_even_with_zero(my_array)

Результат выполнения кода будет следующим: `[1, 0, 3, 0, 5, 0]`. В данном примере все четные числа в массиве `[1, 2, 3, 4, 5, 6]` были заменены на 0.