program kiem_tra_so_phat_trien;
uses crt;
var n, i,j: integer;
a:array[1..100] of integer;
kt: boolean;
begin
clrscr;
writeln('Nhap so phan tu cua mang:');
readln(n);
for i:=1 to n do
begin
writeln('Nhap phan tu thu ',i,' :');
readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if (a[i]>a[j]) then kt:=false;
if kt=true then writeln('Day la so phat trien')
else writeln('Day khong phai la so phat trien');
readln;
end.
TK:
```python
def is_decreasing_number(n):
n_str = str(n)
if len(n_str) < 2:
return False
for i in range(len(n_str) - 1):
if int(n_str[i]) >= int(n_str[i+1]):
return False
return True
Sử dụng hàm để kiểm tra số n
n = int(input("Nhập số n: "))
if is_decreasing_number(n):
print(f"{n} là số phát triển")
else:
print(f"{n} không là số phát triển")
```