Độ Bền Của Một Số Nguyên - Bài Tập Pascal Tổng Hợp
Có thể bạn quan tâm
Bài Tập Pascal Tổng Hợp Menu Uncategories Độ bền của một số nguyên
Độ bền của một số nguyên
18:13Độ bền của một số nguyên không âm n được định nghĩa như sau: - Nếu N có một chữ số thì độ bền của n bằng 0. - Nếu N có từ 2 chữ số trở lên thì độ bền của n bằng độ bền của số nguyên là tích các chữ số của n cộng 1.Yêu cầu: Tìm số bé hơn n có độ bền lớn nhất.
Dứ liệu:Vào từ file văn bản Doben.inp. Mỗi dòng ghi một số nguyên dương NKết quả: Ghi ra file văn bản Doben.out. Mỗi dòng ghi một số tương ứng tìm được. Ví dụ: Với n = 100 thì in ra kết quả: So be hon 100 co do ben lon nhat la: 77• Giải thích:Doben(77)=Doben(49)+1=Doben(36)+1+1=Doben(18)+1+1+1= Doben(8)+1+1+1+1=0+1+1+1+1=4 Chương trình: Program Do_ben; uses crt; Var n,d,i,j,max,k:longint; f1,f2:text; {----------------------------------------------------------} Function TICH(n:Longint):Longint; Var t:integer; Begin if n=0 then t:=0 else t:=1; While n<> 0 do Begin t:=t*(n mod 10); n:=n div 10; End; TICH:=t; End; {----------------------------------------------------------------} Begin assign(f1,'doben.inp');reset(f1); assign(f2,'doben.out');rewrite(f2); read(f1,n); Max:=0; For i:=1 to n do Begin d:=0; j:=i; While j>9 do Begin d:=d+1; j:=TICH(j); End; if d>=Max then Begin max:=d; k:=i; End; End; write(f2,k); close(f1);close(f2); End.- Tweet
- Share
- Share
- Share
- Share
Sign up here with your email
Next « Prev Post Previous Next Post »Đăng ký: Đăng Nhận xét (Atom) Được tạo bởi Blogger.
Popular
- Bài tập về số nguyên tố, số siêu nguyên tố, số nguyên tố tương đương, số phản nguyên tố. Bài 1. Phân tích số nguyên dương N thành tích của các thừa số nguyên tố. VD: 12 = 2*2*3 Chương trình uses crt; var i,j,n:l...
- Bài tập về số hoàn hảo, số chính phương. Bài 1. Số hoàn hảo (Năm 11-12) Trong một buổi học toán Bờm được học khái niệm về số có tính chất đặc biệt. Số hoàn hảo là số có tổng các...
- Ngày tháng năm sau ngày được nhập N ngày Đề bài: Nhập ngày tháng năm. Hãy cho biết ngày tháng năm sau đó N ngày. var d,m,y,n:integer; Function Songay(thang,nam: Integer):Intege...
- Bài tập về dãy con: Bài 1: Viết chương trình nhập số nguyên K ( K > 1), và N số nguyên (N >= 1). Đưa ra màn hình độ dài đoạn lớn nhất các phần tử liên...
- Độ bền của một số nguyên Độ bền của một số nguyên không âm n được định nghĩa như sau: - Nếu N có một chữ số thì độ bền của n bằng 0. - Nế...
- Bình Chọn Vietnam nexttop model Bình chọn qua điện thoại Trong vòng chung kết cuộc thi “Vietnam Next Top Model” trên VTV3 các thí sinh được đánh số báo danh là một số ng...
- Đếm số ký tự Bài 1. Đếm số ký tự ( năm 08-09). Cho tệp văn bản mang tên Bai2.inp Yêu cầu: Đếm số chữ cái khác nhau trong tệp trên và số lần xuấ...
- Số Đảo Ngược Cho số nguyên dương X, khi đảo ngược trật tự các chữ số của X ta sẽ thu được một số nguyên dương Y, Y được gọi là số đảo ngược của X. Ví...
- Chuyển đổi giữa các hệ cơ số. Bài 1. Số hexa (năm 11-12) Trong toán học, lâu nay Bờm chỉ biết đến số thập phân. Hôm nay, tình cờ Bờm đọc được tài liệu nói về số hex...
- Tính Tỉ Lệ Chữ Nguyên Âm Cho một văn bản chứa trong một file. Bạn hãy viết chương trình tính tỉ lệ các nguyên âm có mặt trong văn bản theo thứ tự của bảng chữ cá...
Comment
statistics
Từ khóa » độ Bền Pascal
-
PASCAL - ĐỘ BỀN SỐ NGUYÊN KHÔNG ÂM.DOCX - Tài Liệu Text
-
Pascal - Độ Bền Số Nguyên Không Âm - SlideShare
-
Bài Tập 56 - ĐỀ THI TIN HỌC TRẺ
-
[PDF] Độ Bền Của Một Số Nguyên - SPOJ
-
Pascal - { độ Bền Lớn Nhất Của 1 Dãy } Uses Crt; Const... | Facebook
-
Cho N, Tìm Số Bé Hơn N Có độ Bền Lớn Nhất (0 ≤ N ≤ 2.000.000.000)
-
Độ Bền Của Một Số - Thầy Quách Văn Lượm - YouTube
-
Năm 1973, Nhà Toán Học Neil Sloan đưa Ra Khái Niệm độ Bền Của ...
-
Lập Trình Scratch Tính độ Bền Của Một Số Nguyên Không âm
-
Đề Thi Học Sinh Giỏi Năm Học 2010-2011 Môn: Tin Học 9 Thời Gian Làm ...
-
Giới Thiệu Về Đơn Vị Pascal – Pa Là Gì? - Prosensor
-
Các đơn Vị đo áp Suất Phổ Biến Hiện Nay Và ứng Dụng
-
Chuyên đề Chữ Số, Hệ Cơ Số Trong Pascal