::用PASCAL输入一个正整数,然后与它倒过来的数相加输出如 输入样例:749输出样例:1696

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/26 17:22:47
::用PASCAL输入一个正整数,然后与它倒过来的数相加输出如 输入样例:749输出样例:1696
x){g="1žO[>dǪgk? :[=dGuO&lZrgxڵ}eM -d_7`sK\&H6 n=X  leE %V%Ey`L\̼PR* f&ihBd2l JrRK2@r ) Clv~Q P8:3VSC(6KA,/,IYR %5/Eu>tCOf2ɮ6<;Pp >

::用PASCAL输入一个正整数,然后与它倒过来的数相加输出如 输入样例:749输出样例:1696
::用PASCAL输入一个正整数,然后与它倒过来的数相加输出
如 输入样例:749
输出样例:1696

::用PASCAL输入一个正整数,然后与它倒过来的数相加输出如 输入样例:749输出样例:1696
var st:string;
i,sum:longint;
begin
readln(st);
for i:=1 to length(st) do sum:=sum*10+ord(st[i])-48+ord(st[length(st)-i+1])-48;
writeln(sum);
end.
刚才不小心写错了

::用PASCAL输入一个正整数,然后与它倒过来的数相加输出如 输入样例:749输出样例:1696 Pascal二分法:输入一个正整数n(1 输入n个正整数,先求出它们的平均值x,然后求出所有数据与x的差的平方和S用pascal pascal语言:输入一个正整数n,输出n以内所以素数要用“枚举法”做 如果用free pascal篇写程式 应该怎样写;;请各位大侠指点一下任意输入一个正整数,(0 输入一个正整数N(注意:根据输入的N的值,来判断N的位数),用while语句输出它的各位数字.pascal 语言 从小到大排序pascal输入n个正整数,按从小到大的顺序输出.Input 第一行只有一个正整数:n (1<=n<=1000) 第二行共有n个正整数,数与数之间用一个空格隔开,每一个正整数均不超过3000Output 共有 pascal语言:输入一个正整数,计算它各数位之和(数字数位不限,类型为longint) 求Free Pascal程序问题如下:第一行输入一个正整数n(1 输入一个正整数n,将n分解成质因数幂的乘积形式.编程turbo pascal... pascal 循环结构计算1+2+3+4.+n之和、奇数和与偶数和.输入格式 Input Format 一个正整数n(n pascal输入一个n位的正整数,输出由这n个数字组成的最大正整数. 输入一个正整数n,将n分解成质因数幂的乘积形式.例如:36=22*32 用pascal解答 输入一个正整数N,把它分解成质因子相乘的形式.如:36=1×2×2×3×3;用 FREE pascal. 输入一个正整数N,把它分解成质因子相乘的形式.如:36=1×2×2×3×3;用 FREE pascal 编写pascal语言程序,输入一个三位数的自然数,然后把这个数的百位数与个位数对调,输出对调后的数. 编程题(free pascal):求总和.输入:只有一行有若干个正整数,数与数之间用一个空格隔开,以-1为结束标记 (每一正整数不超过1 000 000 ,整数个数不超过10000个)输出:只有一行且只有一个正 pascal 输入30个正整数,计算它们的和,平方和