pascal 1 任意給定正整數n,求最小的正整數m

2021-12-16 15:25:59 字數 1864 閱讀 2326

1樓:匿名使用者

純模擬就行了,2013julyxx打的程式應該是對的,不過你的n範圍是多少,還有一種情況就是——不論m為多少,都無法滿足要求,請問這時輸出什麼?

2樓:匿名使用者

水題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 doif f(n*i) then

begin

writeln(i);

halt;

end;

end.

3樓:匿名使用者

program ex_1(input,output);

varn:longint;

i1:longint;

function checknumber(fnumber:longint):boolean;forward;

function checki1(var fi1:longint):boolean;forward;

function checknumber(fnumber:longint):boolean;

varvs1:string;

i1:longint;

begin

str(fnumber,vs1);

for i1 := 1 to length(vs1) do

begin

if not(vs1[i1] in ['1','0'])

then

begin

checknumber := false;

exit;

end;

end;

checknumber := true;

end;

function checki1(var fi1:longint):boolean;

begin

if (fi1

then

begin

inc(fi1);

checki1 := true;

endelse

begin

checki1 := false;

end;

end;

begin

readln(n);

i1 := 1;

while (checknumber(n*i1)=false)and(checki1(i1)) do begin end;

if checknumber(n*i1)

then

begin

writeln(i1);

endelse

begin

writeln('no');

end;

end.

對於任意給定的m屬於正整數,存在n屬於正整數,當n>n,不等式|xn-a|<1/m成立。正確的理由

4樓:活寶

|||lim(k->∞zhi)x(2k)=a =>?ε

dao > 0 , ?n1 s.t |專x2k - a| ε, ?

k > n1 lim(k->∞)x(2k+1)=a =>?ε > 0 , ?n2 s.

t |x(2n+1) - a| ε, ?k > n2 choose n = max => ?ε > 0 , ?

n s.t |x2k - a| < ε。屬

編寫程式實現任意輸入正整數n求

factor迴圈裡面i每次加1不是加2 還有錯誤可以繼續問,望採納,謝謝 編寫程式。輸入任意整數n,計算1到n的奇數和。解題思路 迴圈判斷 bai1到n的每一個數 duzhi 若除以2是結果為 整數,dao也就是能被 內2整除,那麼是偶數 容 若除以2結果不是整數,則不能被2整除,那麼是奇數 是奇數...

任意輸入兩個正整數m和n,求m!n!的值。c語言怎麼寫

考慮int最大儲存到16的階乘,再大就會導致資料溢位.所以可以用double來存放階乘的結果內.樓上 古風的程容序,fun函式定義成double,卻又定義了int的y來儲存階乘結果.無語.include int64 fun int a int main 用c語言編寫程式,輸入兩個正整數m和n,計算m...

用vb語言編寫程式,將任意正整數N的立方分解為N個連續的奇數之和

include main printf sum d sum include int main void return 0 include void main printf d n j 編寫程式,輸入一個正整數n,統計n中不同數字出現的次數。程式為 include int main while num...