Viết chương trình in ra các số bậc thang trong đoạn [n1, n2]

Viết chương trình in ra các số bậc thang trong đoạn [n1, n2]

Một số được gọi là số bậc thang nếu biểu diễn thập phân của nó có nhiều hơn một chữ số đồng thời theo chiều từ trái qua phải, chữ số đứng sau không nhỏ hơn chữ số đứng trước. Viết chương trình in ra các số bậc thang trong đoạn [n1, n2] với n1, n2 được nhập từ bàn phím.

Program So_bac_thang;

Var i,n1,n2: integer;

Function BT(n:integer):Boolean;

Var ok: boolean;

    so:byte;

Begin

    ok:=true;

    While n>=10 do

    Begin

    so:=n mod 10;

    n:=n div 10;

    if so < (n mod 10) then ok:=ok and false;

    End;


    BT:=ok;

End;

Begin

    Write('Nhap so n1: ');Readln(n1);

    Write('Nhap so n2: ');Readln(n2);

    For i:= n1 to n2 do if BT(i) then Write(i:4);

    Readln

End.

 

Bạn thấy bài viết này như thế nào?: 
Average: 10 (2 votes)
Ảnh của Tommy Tran

Tommy Tran owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy
  • Phone/Zalo: (+84) 944 225 212
  • WhatsApp: (+84) 944 225 212
  • Line Messenger: (+84) 944 225 212
  • Email: asaleotestf@gmail.com
  • Telegram Messenger: https:/t.me/tommytran0401

Quảng cáo việc làm

 

Thích hợp các bạn nữ mảng thợ may làm việc tại nước NGA

Đơn hàng Tuyển dụng 100 Thợ may đi Nga(đợt 1 tháng 3.2021, đợt 2 tháng 5.2021). Lương thực lãnh 800 USD, bao ăn ở, vé máy bay và visa, phí xuất cảnh(1800 USD)trả khi đi làm có lương. Bạn có thể liên hệ CÔNG TY qua Phone/Zalo: (+84) 944 225 212. Công ty sẽ tư vấn cho bạn.

Xem chi tiết: >>> https://bit.ly/3o9NOfR

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Free Download file PSD mừng xuân năm mới Canh Tý thiệp tết 2020

Free Download file PSD mừng xuân năm mới Canh Tý thiệp tết 2020

Chào đón xuân năm mới Canh Tý 2020 bằng bộ PSD thiệp tết 2020 đẹp ấn tượng, file PSD thiệp chúc tết mừng xuân 2020, psd tết 2020 free download, link tải nhanh.

Apple có chủ tịch mới

Apple có chủ tịch mới

Hơn 1 tháng sau ngày Steve Jobs mất, Apple đã tìm được người thay thế vị trí Chủ tịch HĐQT của ông.

 
GS Phan Thành Nam

GS Phan Thành Nam lĩnh vực nghiên cứu là giải tích vật lý toán học

GS Phan Thành Nam, 35 tuổi, quê Phú Yên, là một trong 10 nhà toán học nhận được giải thưởng EMS từ Hội Toán học châu Âu năm 2020.