//PascalABC.NET 3.2 сборка 1318
Const
n=5;
Var
ar:array[1..n] of integer;
CouOfDel,i:integer;
begin
for i:=1 to n do
readln(ar[i]);
for i:=2 to n do
if ar[i-1]>ar[i] then inc(CouOfDel);
if CouOfDel>1 then writeln('Нет') else writeln('Да');
end.
Пример ввода:
1
2
2
1
3
Пример вывода:
Да
Тут обратное условие Фано
Условие фано :никакой код не был началом другого кода.
Обратное условие Фано: никакой код не был окончанием другого кода.
1)1100011 2
2)22 10
3)10110111 2
4)127 10
5)1000000000 2