Если П и Ж аборигены, то она должны всегда говорить правду.Значит Ж(абориген)говорит правду, что он абориген и П передаёт правду. Он абориген.
Если П иЖ пришельцы, то они должны врать.Значит Ж говорит (неправду) я абориген, и П передаёт он пришелец. ---несоответствует контексту.
Если П-пришелец,а Ж-абориген, то П должен врать, а Ж говорить правду. Значит Жсказал правду " я абориген", а проводник передал он пришелец. --- несоответсвует контексту.
Если П- абориген, а Ж пришелец, то П всегда говорит правду, а Ж неправду. Значит сказал" неправду "я абориген" а П передал он абориген.
В обоих случаях проводник абориген.
П- проводник
Ж - житель
Если бы проводник был пришельцем, тут возможно 2 варианта:
1) Они встретили пришельца, проводник спрашивает у пришельца, кто он. Тот, естественно врёт, что он абориген. Тогда проводник-пришелец возвращается и сообщает гостю не правду (то есть, не то, что сказал встреченый), то есть, что встреченный пришелец
2) Они встретили аборегена, проводник спрашивает у аборигена, кто он. Тот, естественно говорит правду, что он абориген. Тогда проводник-пришелец возвращается и сообщает гостю не правду, то есть, что встреченный пришелец.
Оба варианта нам не подходят, рассмотрим случаи, когда проводник абориген:
1) Они встретили пришельца, проводник спрашивает у пришельца, кто он. Тот, естественно врёт, что он абориген. Тогда проводник-абориген возвращается и сообщает гостю правду (то есть, то, что сказал встреченый), то есть, что встреченный абориген
2) Они встретили аборегена, проводник спрашивает у аборигена, кто он. Тот, естественно говорит правду, что он абориген. Тогда проводник-абориген возвращается и сообщает гостю правду, то есть, что встреченный абориген.
Оба условия подходят, значит проводник - абориген!
var
a: array [1..1000] of integer;
N: integer;
i: integer;
Product: integer;
begin
cnt := 0;
write('Введите количество элементов в массиве: ');
readln(N);
write('Введите элементы массива: ');
for i:=1 to N do
begin
read(a[i]);
if (a[i] mod 4 = 0) then
begin
cnt = cnt + 1;
end;
end;
write('Количество элементов кратных 4: ', cnt);
end.