Проводник - абориген.
Потому что если бы он спросил у пришельца, которые всегда лгут, "Кто ты?", то тот солгал, сказав "Абориген". И проводник пришел и сказал правду.
А если бы проводник был бы пришельцем, спросив у аборигена "Кто ты?", то абориген сказал бы правду. Но пришелец путешественнику соврал бы, сказав, что тот пришелец.
Repeat
a:=a+1;
b:=Arr[a];
writeln(b);
until b = 0;
Вероятно так
32=2^5, значит 1 символ весит 5 бит.
20*10*3=600 символов
600/5=125 бит
так как в байте 8 бит, 125/8=15.625, то есть 16 байт (округляем в бОльшую сторону)
//FPC 2.6.4
Program sieve_of_Eratosthenes;
var
n, i, x:integer;
a: array[1..32000] of boolean;
begin
readln(n);
for i:=2 to (n+1) div 2 do
begin
x:=i*2;
while x<=n do
begin
a[x]:=true;
x:=x+i;
end;
x:=0;
end;
for i:=1 to n do if not a[i] then write(i,' ');
readln;
end.