N 的倍数 pascal语言写一个程序,对于给定的一个自然数N(0

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/03 15:21:59
N 的倍数 pascal语言写一个程序,对于给定的一个自然数N(0

N 的倍数 pascal语言写一个程序,对于给定的一个自然数N(0
N 的倍数 pascal语言
写一个程序,对于给定的一个自然数N(0

N 的倍数 pascal语言写一个程序,对于给定的一个自然数N(0
var
chu ,i,n:integer;
m:array[1..1000]of interger;
b:array[1..m] of boolean;
procedure paixu;
begin
for i:=1 to n -1 do
for j:=n downto i+1 do
if a[j-1]