Если П и Ж аборигены, то она должны всегда говорить правду.Значит Ж(абориген)говорит правду, что он абориген и П передаёт правду. Он абориген.
Если П иЖ пришельцы, то они должны врать.Значит Ж говорит (неправду) я абориген, и П передаёт он пришелец. ---несоответствует контексту.
Если П-пришелец,а Ж-абориген, то П должен врать, а Ж говорить правду. Значит Жсказал правду " я абориген", а проводник передал он пришелец. --- несоответсвует контексту.
Если П- абориген, а Ж пришелец, то П всегда говорит правду, а Ж неправду. Значит сказал" неправду "я абориген" а П передал он абориген.
В обоих случаях проводник абориген.
П- проводник
Ж - житель
Program p;
var ch:real;
i:integer;
begin
ch:=65000;
For i:= 1993 to 2013 do
begin
ch:=trunc(ch*1.03);
Writeln('Численность населения в году №',i+1,' равна ',ch);
end;
end.
Для любых данных
Program p;
var year,y1:integer;
ch:real;
i:integer;
begin
Write('Введите начальный год: ');
Readln(year);
Write('Введите конечный год: ');
Readln(y1);
Write('Введите число населения: ');
Readln(ch);
For i:= year to y1-1 do
begin
ch:=trunc(ch*1.03);
Writeln('Численность населения в году №',i+1,' равна ',ch);
end;
end.