pascal输入一个整数N（1<=N<=10000000），把它的各位数字倒序输出。N末尾的零不要输出。
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
procedure doRect(n:Integer);
var i, j, r:longint;
begin
r:=1;
for i:=0 to n-1 do begin
for j:=1 to n do begin
write(i*r+j:3);
end;
writeln('');
r:=r+1;
end;
end;
var n:longint;
begin
Writeln('Input a num and Press ENTER:');
read(n);
doRect(n);
Writeln('Input a num and Press ENTER to exit');
read(n);
end.
#include
#include
void main()
{
int i,n,a[11];
printf("Input n:");
scanf("%d",&n);
printf("
Input %d intergers:",n);
for(i=0;i<n;i++)
scanf("%d",&a[i]);
a[n]='/0';
printf("
After reversed:");
for(i=(n-1);i>=0;i--)
printf("%d ",a[i]);
getch();
}
问题的关键是处理末尾的0，程序如下：
输入一个正整数，将其逆序输出，每个数字后有一个空格。
输入一个正整数n，可以假设n在int范围内
输出将n按其逆序输出，每个数字后有一个空格，输出占一行。/
#include<stdio.h>
int main()
{int i;
int n;
scanf("%d",&n);
int num = 0;
for(i = 0; ; i ++)
{num = n % 10;
n /= 10;
printf("%d
",num);
if( n < 1)
break;
]return 0;
扩展资料
双阶乘用“m！！”表示。
当 m 是自然数时，表示不超过 m 且与 m 有相同奇偶性的所有正整数的乘积。如：
当 m 是负奇数时，表示绝对值小于它的绝对值的所有负奇数的绝对值积的倒数。
当 m 是负偶数时，m！！不存在。
任何大于等于1 的自然数n 阶乘表示方法：
问题的关键是处理末尾的0.
程序如下：
var s:string;
i,j:integer;
begin
readln(s); //整数用字符串来存；
for i:=length(s) downto 1 do
if s[i]<>'0' then break; //这一步，是找出s串最右边一个不是0的数字的位置，用 i 记下；
for j:=i downto 1 do write(s[j]);
readln;
end.
当成字符串处理就超简单了~
var
i,j:longint;
n:string;
begin
readln(n);
for i:=length(n) downto 1 do
if n[i]<>'0' then break; //这步是去掉前置0
for j:=i downto 1 do write(n[j]);
writeln;
end.
当然你用数组也可以
把n定义成字符数组n:array [1..9] of char;
这样做还要记录下长度
直接用整形来做当然也是可以的！
var
n:longint;
begin
readln(n);
while (n mod 10=0) do n:=n div 10; //这步是去掉前置0
while n<>0 do
begin
write(n mod 10); //输出最后一位
n:=n div 10; //删掉最后一位
end;
writeln;
end.
三种方法随你选~
满意望采纳谢谢！！
从键盘输入一个字符,输出该字符对应的ASCII码值,并且以十进制,八进制...
从键盘输入一个字符，输出该字符对应的ASCII码值，并且以十进制，八进制，十六进制三种形式输出的代码如下：include <stdio.h> int main() {char c;scanf("%c",&c);printf("d=%d o=%o x=%x\\n",c,c,c);return 0;} 用C++将Ascii码表分别以十进制，字符，十六进制,八进制输出控制台上的...
编写个程序 要求输入一个ascll码值,然后输出相应字符 初学c 不知道我...
include <stdio.h>void main(){int n;printf("请输入ASCII码值: ");scanf("%d",&n);printf("该ASCII码对应的字符为%c",n);}运行示例：
从键盘输入一个大写字母,输出该字母及其对应的ASCII码值,同时输出其小...
include<stdio.h> int main(){ char ch;printf("请输入一个大写子母：");ch=getchar();ch=ch+32;printf("%c,%d\\n",ch,ch);return 0;}
输出ASCII码 键盘输入一个符号,要求输出其ASCII码,例如输入A,则输出6...
include <iostream>using namespace std;int main(){ char ch; cin >> ch; cout << (int)ch << endl; return 0;}
用c语言输入一个字符并输出它的ASCII?
include<stdio.h> int main(){ char ch;scanf("%c",&ch);\/\/输入一个字符 printf("%d",ch);\/\/输出时，按数字整型输出，就是其对应的ASCII码;return 0;}
输入一个字符串,输出该字符对应的ascii值
include <stdio.h>#include <stdlib.h>#include <string.h>int main(){ char rec_buf[200]; int i,len; printf("请输入字符串："); scanf("%s",rec_buf); len = strlen(rec_buf); printf("字符串对应ASCII值(10进制)："); for(i=0;i<len;i++) printf(...
从键盘输入一个字符 若该字符是英文字母是则输入对应的ASCII码
include <stdio.h>。int main(int argc, char *argv[])。{int s;s=getchar()。if (s>=65 && s<=90 || s>=97 && s<=122)printf("%d\\n",s);getchar();return 0。Unicode UTF-16 编码将字符表示为 16 位整数序列，而 Unicode UTF-8 编码则将相同的字符表示为 8 位字节序列。
c语言,输入一个字符,得到ASCII码值(请按要求回答,谢谢了)
main() {\/\/ 程序每按一个字符,显示其ASCII码值,按'x'退出 int ch;while(ch != 'x') {\/\/ 这里是输入'x'退出循环,可换成别的字符 ch = getch();printf("%d\\n",ch);} }
求任意输入字符的ASCⅡ码 (c语言写法)
scanf("%c",&t);\/\/输入字符 printf("%d",t);\/\/输出ASCII 例如：\/\/参考代码如下：#include<stdio.h>int main(){char a;scanf("%c",&a);printf("%d\\n",a); }\/*运行结果a97 *\/
编写程序,输入一个字符,输出这个字符及其ASCII值并输出前一个字符和...
char input;\/\/声明字符变量用于接收输入input = getchar();\/\/输入字符值putchar(input);\/\/输出字符值printf("%d\\n", input);\/\/输出字符的ASCII编码putchar(input - 1);\/\/输出前一个字符putchar(input + 1);\/\/输出后一个字符
甘禄丽珠： var n,s:longint; begin read(n); s:=0; while n<>0 do begin s:=s+n mod 10; n:=n div 10; end; writeln(s); end.自创!
宁城县15078338836： 用pascal编程,输入一个整数n,输出n的所有因数,因数不要质因数. - ？
甘禄丽珠： =1 to n do if n mod i=0 then begin inc(tot); ans[tot]; i:longint,n; for i..10000000] of longint; var q:boolean; i:longint; begin if x=2 then exit(false); if q=true then exit(false) else exit(true); end; begin readln(n); if x=1 then exit(true); q:=true; for i:=2 to trunc(...
宁城县15078338836： pascal语言的程序？
甘禄丽珠： 第一题,很简单,我就不说了. var g,s,b,k:longint; begin k:=0; for b:=1 to 9 do for s:=0 to 9 do for g:=0 to 9 do if (b<>s)and(s<>g)and(g<>b)and(s>(b+g)) and(not ((s+b) in [2,3,5,7,11,13,17,19])) then begin inc(k); if k=9 then begin k:...
宁城县15078338836： PASCAL程序设计输入一个整数n,判断它是否为素数 ？
甘禄丽珠： program aa; var a,i:longint; begin readln(a); if a>2 then for i:=2 to round(sqrt(a)) do if ( a mod i)=0 then writeln('no!') else writeln('yes!'); end.
宁城县15078338836： 求n个数的最大值和最小值(pascal)？
甘禄丽珠： var i,n,m1,m2,m3:integer; begin read(n); for i:=1 to n do begin read(m3); if (i=1) or (m1>m3) then m1:=m3; if (i=1) or (m2<m3) then m2:=m3; end; write(m2,' ',m1); end.
宁城县15078338836： 用Pascal编写一程序,输入一个正整数N,将N分解成质因数幂的乘积形式(帮忙看一下我哪里错了) - ？
甘禄丽珠： 1.每次除完之后i 要更新,你这里i的值就没变过2.每次输出后要把t 赋值为0;3.if n mod i=0 then begin t:=t+1; n:=n div i; if n=1 then write(i,'(',t,')'); end 这里不能用IF语句,用IF语句只会出1次,要改为WHILE语句我把你的程序改了一下,贴在下面,应...
宁城县15078338836： 输入一个整数,求这个数的各位数字之和(Pascal)语言编程 - ？
甘禄丽珠： program a; var re,s,ws:real; i,ii:integer; begin readln(re); s:=10; ws:=10; i:=1; while ws>9 do begin ws:=re/s; s:=s*10; i:=i+1; end; writeln('wei shu ',i); end.判定该数的位数代码 各位之和应该很简单了吧
宁城县15078338836： pascal输入行数n,输出三角形,用数组. - ？
甘禄丽珠： var i,j,k,n:integer; begin readln(n); k:=0; for i:=1 to n do begin for j:=1 to i do begin k:=k+1; write(k,' '); end; writeln; end; end.
宁城县15078338836： 编程用Pascal？
甘禄丽珠： program ex; var s1,s2:string; n:integer; procedure pro(s1,s2:string); var m,i,l1,l2,s,l:integer; a:array[1..10000] of integer; b:array[1..10000] of integer; c:array[1..10000] of integer; begin l1:=length(s1); l2:=length(s2); for i:=1 to l1 do begin if s1[l1-i+1]>='...
宁城县15078338836： 用Pascal编写—输入一个正整数n,把它分解成质因子相乘的形式.例如24=2*2*2*3.(用for循环语句) - ？
甘禄丽珠： var n,i:longint; begin read(n); write(n,'=');for i:=2 to trunc(sqrt(n)) do if n mod i=0 then begin while (n mod i=0)and(n div i1) do begin write(i,'*'); n:=n div i; end; if n div i=1 then begin writeln(n); halt; end;end; end.
