1：输入一个正整数n，将n分解成质因数的乘积形式。 　　　　　例如：36=2*2*3*3　　　　2：输入一个不大于32767的正整数N，将它转换成一个二进制数。 　　例如：　　输入：100　　输出： 11001003：输入一个由10个整数组成的序列，其中序列中任意连续三个整数都互不相同，求该序列中所有递增或递减子序列的个数。　　例如：　　输入：1　10　8　5　9　3　2　6　7　4　　输出：6　　对应的递增或递减子序列为：　　1　10　　　10　8　5　　　5　9　　9　3　2　　2　6　7　　7　4

{第一道}var n,i:integer;begin read(n); write(n,'='); i:=2; while i<=32000 do if n mod i=0 then begin n:=n div i; write(i); break; end else i:=i+1;{第一个质因数} while i<=32000 do if n mod i=0 then begin n:=n div i; write('*',i); end else i:=i+1;{后面的质因数}end.

这也叫难吗?那你告诉我中缀表达式求值还简单我QQ是563476349有问题加