::用PASCAL输入一个正整数,然后与它倒过来的数相加输出如 输入样例:749输出样例:1696
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 21:50:44
![::用PASCAL输入一个正整数,然后与它倒过来的数相加输出如 输入样例:749输出样例:1696](/uploads/image/z/1740982-22-2.jpg?t=%EF%BC%9A%EF%BC%9A%E7%94%A8PASCAL%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0%2C%E7%84%B6%E5%90%8E%E4%B8%8E%E5%AE%83%E5%80%92%E8%BF%87%E6%9D%A5%E7%9A%84%E6%95%B0%E7%9B%B8%E5%8A%A0%E8%BE%93%E5%87%BA%E5%A6%82+%E8%BE%93%E5%85%A5%E6%A0%B7%E4%BE%8B%EF%BC%9A749%E8%BE%93%E5%87%BA%E6%A0%B7%E4%BE%8B%EF%BC%9A1696)
::用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个正整数,计算它们的和,平方和