pascal中输入n个一位数再输入s,用n个数组成n位数（数不可重复）,从大到小排列后,输出第s个数先输入n,再输入n个数可能会组成100位数

来源：学生作业帮助网编辑：作业帮时间：2024/05/09 01:33:26

pascal中输入n个一位数再输入s,用n个数组成n位数（数不可重复）,从大到小排列后,输出第s个数先输入n,再输入n个数可能会组成100位数
pascal中输入n个一位数再输入s,用n个数组成n位数（数不可重复）,从大到小排列后,输出第s个数
先输入n,再输入n个数
可能会组成100位数

pascal中输入n个一位数再输入s,用n个数组成n位数（数不可重复）,从大到小排列后,输出第s个数先输入n,再输入n个数可能会组成100位数
你没说数据范围.如果s比较小的话,用这个程序就行了：
program example;
var
x,i,n,s:byte;
a:array[1..256]of byte;
s:array[0..9]of byte;
procedure print;
begin
for i:=1 to n do write(a[i]);
halt;
end;
procedure search(x:byte);
var i:byte;
begin
if x>n then begin
if s=1 then begin print else begin dec(s);exit;end;
for i:=0 to 9 do
if s[i]>0 then
begin
a[x]:=i;
dec(f[i]);
search(x+1);
inc(f[i]);
end;
end;
begin
fillchar(s,10,0);readln(n,s);
for i:=1 to n do begin
read(x);
inc(s[x]);
end;
searc(1);
end.

pascal中输入n个一位数再输入s,用n个数组成n位数（数不可重复）,从大到小排列后,输出第s个数先输入n,再输入n个数可能会组成100位数 pascal 输入n(1 pascal 输入n(1 用pascal做这道题是个回形矩阵题例如输入n(n pascal程序设计输入一个整数n,n 输入n个正整数,先求出它们的平均值x,然后求出所有数据与x的差的平方和S用pascal Pascal二分法：输入一个正整数n（1 求n个数的最大值和最小值用Pascal试题描述任意输入n个整数,把它们的最大值,最小值求出来.输入要求输入只有一行,包括一个整数n(1 pascal输入下列图形,行数n由键盘输入（下图中n=4）aababcabcd pascal输入下列菱形,行数n由键盘输入,下图中n=4.* *** *** ** *** *** *第一 pascal循环结构求所有7的倍数和描述 Description 前n个自然数中,能被7整除的所有整数之和s.输入格式 Input Format 只有一行且只有一个正整数：n30%的数据范围 Nocomachns定理.用free pascal Description Nocomachns定理.任何一个n的三次方一定可以表示成n个连续的奇数和.输入:n(n pascal中如何求平均数输入n个正整数,求出这些数的平均数.第一行只有一个正整数：n (1 pascal语言:输入一个正整数n,输出n以内所以素数要用“枚举法”做 pascal编程：哥德巴赫猜想题目描述输入N(N 用pascal 输入N个数,计算偶数、奇数和零的个数如题 pascal输入一个n位的正整数,输出由这n个数字组成的最大正整数. pascal 输入30个正整数,计算它们的和,平方和