Встречено else, а ожидался оператор Type Chislo=array[1..5] of integer; var c:chislo; a:integer; b, p, o:integer; begin for a:= 1 to 5 do b:=0; p:=0; begin writeln('Введите число'); readln(c[a]); if (a mod 2 = 0) then c[a]:=5; b:=a; else c[a]:=2; p:=a; end; writeln('чётные и нечётные'); for a:=1 to 5 do write (b:5, ' ', p:5, ' '); end. а вообще задание звучит так дан одномерный массив который содержит не более 5 целых чисел замените каждый элемент с чётным номером цифрой 2, а с нечётным 5

А) не ( A или не В и С ) упрощаем выражение и получаем
not(a) and (b or not(c))

Код на Python:

for a in range(0,2):
    for b in range(0,2):
        for c in range(0,2):
            f=not(a) and (b or not(c))
            print('A = ',a,'B = ',b,'C = ',c,'F = ',f)

б) А и не ( В и или не С) получим такое выражение:
a and (b or not(c))

Код на Python:

for a in range(0,2):
    for b in range(0,2):
        for c in range(0,2):
            f=a and (b or not(c))
            print('A = ',a,'B = ',b,'C = ',c,'F = ',f)


в) не ( не А или В и С)  преобразуем:
a and (b or c)

Код на Python:

for a in range(0,2):
    for b in range(0,2):
        for c in range(0,2):
            f=a and (b or c)
            print('A = ',a,'B = ',b,'C = ',c,'F = ',f)

#include <iostream>

using namespace std;

int main()

{

   setlocale(0, "");

   int a{}, b{};

   cout << "a = ";

   cin >> a;

   cout << "b = ";

   cin >> b;

   if (a % b >= 0 && a % b <= 4) cout << "Остаток от деления " << a << " на " << b << " (" << a % b << ") попадает в диапазон 0...4";

   else cout << "Остаток от деления " << a << " на " << b << " (" << a % b << ") не попадает в диапазон 0...4";

   return 0;

}