Đang tải... (xem toàn văn)
Pascal - Độ Bền Số Nguyên Không Âm
Lý thuyết độ bền số nguyên không âm Năm 1973, nhà toán học Neil Sloan đưa khái niệm Độ bền số nguyên không âm N định nghĩa sau: + Nếu N có chữ số độ bền N + Nếu N có từ chữ số trở lên độ bền N độ bền số nguyên tích chữ số N cộng Yêu cầu: Tìm số bé N có độ bền lớn Ví dụ: Doben(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 = Bài tập Pascal Cho N, tìm số bé N có độ bền lớn (0 =0) and (n9 begin do_ben:=do_ben+1; j:=tich(j); end; if do_ben>=max then begin max:=do_ben; k:=i; end; end; writeln('So be hon N co ben lon nhat la: ',k); writeln('Do ben cua ',k,' la: ',max); end