求會pascal語言的幫我編道題

時間 2022-07-11 07:00:06

1樓:風雨飄搖

varn:string;

s,i:integer;

begin

readln(n);

readln(s);

while s>0 do

begin

i:=1;

while (i1)and(n[1]='0') do delete(n,1,1);

writeln(n);

end.

2樓:匿名使用者

varn:string;

s,i:integer;

begin

readln(n);

readln(s);

while s>0 do

begin

i:=1;

while (i1)and(n[1]='0') do delete(n,1,1);

writeln(n);

end.

......額。。。。。。好像重複了。。。。。。

3樓:匿名使用者

程式我就不寫了,給你講講演算法吧。

從頭開始掃這串數字 ,遇到a[i]

190481345235 先刪1, 刪0, 4 ,刪1,3,結束

4樓:匿名使用者

用貪心策略,就是先從頭掃瞄字串,如果當前數字小於下乙個,就刪除它,直到刪除了k個,如果掃瞄一遍後刪除的不足k個,那麼從最後再刪除幾個,直到刪足為止

請問一下用pascal編求N!的末尾有多少個連續的0該怎麼編

因為10 2 5,所以末尾有多少個連續的0要看n 分解後質因數2和5的個數,而2的個數增長速度比5快,只須看n 分解後質因數5的個數就有多少末尾連續的0 程式1 var n,i,a,s longint begin read n for i 1 to n do begin a i while a mo...

C語言的一道題求幫忙解答,關於c語言的一道題,求c高手幫忙解答 謝謝啦

include void swap int a,int b int t a a b b t int main void int a 3 n,i 0 scanf d n while n a i n 10 n 10 if a 1 a 0 swap a 1 a 0 if a 2 a 0 swap a 2 ...

一道c語言陣列的題求c高手幫忙,一道C語言陣列的題,求C高手幫忙

include main p 定義了乙個10個元素的陣列,每個元素int型別,還定義了乙個p指標.p a p指標指向陣列a printf x n p 輸出把p的位址以十六進製制顯示,printf x n p 9 p 9表示移動9個int型別的距離的位址之後換成十六進製制顯示,如果你的確想列印位址,使...