pascal输入一个整数N（1<=N<=10000000），把它的各位数字倒序输出。N末尾的零不要输出。 输入一个正整数n(1<n<=10),再输入n个整数，按逆序输...
pascal \u8f93\u5165n(1<=n<=20)\uff0c\u8f93\u51fan*n\u7684\u77e9\u9635\uff0c\u4e14\u6309\u7167\u4e00\u5b9a\u7684\u89c4\u5f8b\u3002program 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("\nInput %d intergers:",n);
for(i=0;i<n;i++)
scanf("%d",&a[i]);
a[n]='/0';
printf("\nAfter 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.
三种方法随你选~
满意望采纳谢谢！！
绛旓細涓涓瀛︾敓瑕佷粠杩欎簺璇剧▼閲岄夋嫨M闂ㄨ绋嬪涔,闂粬鑳借幏寰楃殑鏈澶у鍒嗘槸澶氬皯?杈撳叆:绗竴琛屾湁涓涓暣鏁癗,M鐢ㄧ┖鏍奸殧寮銆(1<=N<=200,1<=M<=150)鎺ヤ笅鏉ョ殑N琛,绗琁+1琛屽寘鍚袱涓暣鏁発i鍜宻i, ki琛ㄧず绗琁闂ㄨ鐨勭洿鎺ュ厛淇,si琛ㄧず绗琁闂ㄨ鐨勫鍒嗐傝嫢ki=0琛ㄧず娌℃湁鐩存帴鍏堜慨璇(1<=ki<=N, 1<=si<=20)銆傝緭鍑:...
绛旓細program sort(input,outupt);var i,j,n,t:longint;a,num:array[0..100]of longint;begin readln(n);for i:=1 to n do begin read(a[i]);num[i]=i;end;for i:=1 to n-1 do for j:=i+1 to n do if (a[i]>a[j])begin t:=a[i];a[i]:=a[j];a[j]:=t;t:...
绛旓細var s:string;n,i,j,k,sum:longint;begin read(n);for i:=1 to n do begin str(i,s);for j:=1 to length(s) do inc(sum,ord(s[j])-48)end;writeln(sum)end.
绛旓細姘撮 var n,i:longint;function f(x:qword):boolean;begin while x>0 do begin if x mod 10>1 then exit(false);x:=x div 10;end;end;begin read(n);for i:=1 to 1000000 do if f(n*i) then begin writeln(i);halt;end;end....
绛旓細var a:array[0..30,0..30]of longint;i,j,n:longint;begin readln(n);a[1,1]:=1;for i:=2 to n do for j:=1 to i do a[i,j]:=a[i-1,j-1]+a[i-1,j];for i:=1 to n do write(a[n,i],'');//杩欓噷灏变笉杩囧垎寮鸿皟鏍煎紡浜..readln;end.鍘熷垱宸茶皟璇曪紝鏈涢噰绾硚
绛旓細杈撳叆涓涓姝鏁存暟N锛涓嶈秴杩囦竴鐧句綅锛夛紝濡傛灉N鏄伓鏁帮紝鍒欐媶鍒哊鐨勫悇涓暟瀛楃浉鍔犳眰鍜岋紱濡傛灉N鏄鏁帮紝鍒欐媶鍒哊鐨勫悇涓暟瀛楃浉涔樻眰绉傦紙濡傛灉鏄伓鏁板垯鍦ㄨ緭鍑烘椂搴斿姞涓娾淗=鈥濓紝濂囨暟鍒欏湪杈撳嚭鏃跺簲鍔犱笂鈥淛=鈥濓級
绛旓細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.鑷垱锛
绛旓細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 i<>1) do begin write(i,'*');n:=n div i;end;if n div i=1 then begin writeln(n); halt; end;end;end.
绛旓細灏辨槸绠鍗曠殑鎵ц鍗佽繘鍒惰浆鎹负浜岃繘鍒剁殑杩愮畻娉曞垯锛屾瘡娆″浜n闄や互2鍙栦綑鏁帮紝鎺ョ潃閫嗗簭杈撳嚭灏辨槸浣犳墍瑕佺殑浜岃繘鍒鏁浜嗭紝涓嶇煡閬撲綘鐨刵澶氬ぇ锛屼负浜嗕笉瓒呯晫锛屾垜闄勪笂涓涓楂樼簿搴︾殑锛屼笅闈㈢殑鏄▼搴忥細var n:array[0..50]of integer;bin:array[0..50]of integer;ch:char;i,s:integer;{瀛樺偍鏃跺欐殏鏃惰瀹氫负鏈澶т负50...
绛旓細var n,i,len,k:longint;s:string;begin readln(n);k:=1;for i:=1 to n do begin k:=k*n;str(k,s);len:=length(s);val(s[len],k);end;writeln(k);end.
