Составьте программу, которая находит сумму четных чисел и произведение нечетных чисел в диапазоне от 1 до 10. в pascalabc

Program ;
var
A: array [-10..10] of integer;
n, i, b, c : integer;
begin
    writeln('Введите количество чисел');
    readln(n);
    b:=0;
    for i := 1 to n do
        readln(A[i]);
    b:=0;
    c:=1;
    for i := 1 to n do
    begin
        if A[i] mod 2 = 0 then
            b:=b+A[i]
        else
            c:=c*A[i]
    end;
    writeln('Это произведение ' , c);
    writeln('Это сумма ' , b);
end.

Объяснение:

1) вводим с клавиатуры х, затем у. Вычисляем значение данного выражения в f. Выводим результат на экран:

x=int(input('x='))

y=int(input('y='))

f=not(x*y<0) and y>x

print(f)

2) Выводим на экран заголовки столбцов. Затем перебираем в циклах всевозможные значения х, у и z. Выводим их значения и значение логического выражения. На экране получим таблицу.

print('x','y','z', 'F')

for x in range(2):

   for y in range(2):

           for z in range(2):

               print(x,y,z, x and not(not(y) or z) or y)

3) Ничего не придумал, кроме простого перебора всех вариантов:

(x and not(y) and not(z)) or (not(x) and y and not(z)) or (not(x) and not(y) and z)

1. ответ a)верно b)верно c)неверно d)верно e)верно

Объяснение: 1)ScanDisk-программа для исправления ошибок структур жестких дисков

2)Вследствие засорения реестра путем появления неверных записей, неочищенный кэш и мусор от установленных программ

3)Disk Cleanup-программа для очистки компьютера от всевозможного мусора, неиспользуемых системных файлов и следов работы в браузерах

4)Обычно программа перестаёт отвечать на действия пользователя, а курсор превращается в песочные часики. В этом случае в заголовке программы в скобках может быть написано «(Не отвечает)». Все попытки закрыть программу на «крестик» ничего не дают, либо крестик нажать не удаётся

5) Открыть диспетчер задач и во вкладке процессы снять задачу