Какие предложения,простые,сложные,распространенные и т.д?
Использовать робот
алг
нач
нц пока слева свободно
влево
кц
закрасить
нц пока слева стена
вниз
кц
влево
нц пока сверху стена
влево
кц
вверх
нц пока справа стена
вверх
кц
нц пока слева свободно
закрасить
влево
кц
закрасить
нц пока слева стена
вниз
кц
влево
нц пока сверху стена
влево
кц
вверх
нц пока справа стена
вверх
кц
закрасить
нц пока слева стена
вниз
кц
влево
нц пока сверху стена
влево
кц
вверх
нц пока справа
вверх
кц
закрасить
кон
<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin;
var s:=ReadInteger('n=').ToString;
If s.Length<>(s.Distinct.Count) then Writeln('не является')
else
if s=s.ToCharArray.SortedDescending.JoinIntoString('')
then Writeln('является') else Writeln('не является')
end.
<u>Примеры</u>
n= 9875431
является
n= 9753321
не является
n= 9763421
не является
<u><em>Замечание:</em></u> учтено, что упорядоченность должна быть по убыванию а не по невозрастанию. т.е. нельзя, чтобы попадались две одинаковые цифры.
N ⵗ 9 <span>ⵗ 3
Где N - число
N </span>ⵗ 9 - число кратно (делится нацело, без остатка) на 9.
N ⵗ 9 <span>ⵗ 3 - число кратно 9 и 3, то есть чтобы оно делилось на 3, достаточно чтобы оно делилось на 9.
</span>
Как сделать - что? перевести в двоичную сис-му счисления, или куда-то в другую?
46А (16)=1001010 (2)=112(8)
155(8)=6D (16)=1101101(2)