Если бы проводник был пришельцем, тут возможно 2 варианта:
1) Они встретили пришельца, проводник спрашивает у пришельца, кто он. Тот, естественно врёт, что он абориген. Тогда проводник-пришелец возвращается и сообщает гостю не правду (то есть, не то, что сказал встреченый), то есть, что встреченный пришелец
2) Они встретили аборегена, проводник спрашивает у аборигена, кто он. Тот, естественно говорит правду, что он абориген. Тогда проводник-пришелец возвращается и сообщает гостю не правду, то есть, что встреченный пришелец.
Оба варианта нам не подходят, рассмотрим случаи, когда проводник абориген:
1) Они встретили пришельца, проводник спрашивает у пришельца, кто он. Тот, естественно врёт, что он абориген. Тогда проводник-абориген возвращается и сообщает гостю правду (то есть, то, что сказал встреченый), то есть, что встреченный абориген
2) Они встретили аборегена, проводник спрашивает у аборигена, кто он. Тот, естественно говорит правду, что он абориген. Тогда проводник-абориген возвращается и сообщает гостю правду, то есть, что встреченный абориген.
Оба условия подходят, значит проводник - абориген!
Предположим, что наш проводник абориген и говорит правду. Тогда он сказал правду, что тот человек назвался аборигеном, но он мог быть как аборигеном так и пришельцем.
Пусть наш проводник пришелец, который врет. Тогда другой житель острова назвался пришельцем, а проводник сказал, что тот житель абориген. А этот случай не возможен, потому что если другой житель пришелец, он скажет что он абориген, а наш проводник обманет и должен был сказать, что тот пришелец, то же самое будет если другой житель острова абориген.
ответ: наш проводник абориген.
Uses crt;
var a: real;
begin
clrscr;
write('Градусная мера угла a = ');
readln(a);
if a>=0 then
begin
if a<>180 then writeln ('Угол не является развернутым')
else writeln ('Угол является развернутым');
end
else
writeln('Угол не может быть отрицательным');
end.
Program programma2;
Uses crt;
var x: real;
begin
clrscr;
write('x = ');
readln(x);
if X>5 then x:=x*x;
if X<5 then x:=x*x*x;
writeln('ответ: ',x);
end.