Var
a: integer;
begin
readln(a);
if (a mod 10 = a div 100) or (a mod 10 = a div 10 mod 10) or (a div 10 mod 10 = a div 100) then
writeln('Есть')
else
writeln('Нет');
<span>end.</span>
Совокупность правил одобреная администратором.
обновление.
Предположим, что Великобритания (откровенный), тогда получается проект Китая.
Следовательно Китай (скрытный). Проверим, Францию на (осторожный).
Все верно, следовательно
Великобритания = Откровенный
Китай = Скрытый
Франция = Осторожный
N=2^i, где N - количество цветов в палитре, i - глубина цвета
32=2^i, поэтому i=5 бит, точнее столько бит надо, чтобы закодировать 1 точку
всего точек: 800*360=288000
Объем памяти - 288000*5=1440000 бит / 8 бит = 180000 байт