100 帕斯卡以內的奇數和

8個回答

匿名使用者2024-02-09

vari,ans:integer;

beginans:=0;初始化。

for i:=1 to 100 do

如果 odd（i）是求奇偶的函式，則奇數為真，偶數為 falseinc（ans，i）; 統計學。

writeln(ans);輸出。

end.
匿名使用者2024-02-08

差值級數求和公式：（1+99）*50 2=2500
匿名使用者2024-02-07

（1）程式如下：

set talk off

s=0i=1

do while i<=100

s=s+ii=i+2

enddos 結果是：2500

2）程式如下：

set talk off

s=0i=1

do while i<=100

s=s+ii=i+1

enddos 結果為：5050
匿名使用者2024-02-06

var a,b,t:double; n,i:integer;

begina:=1; b:=1;

write(1,' ',1,' ');

n:=5000;

for i:=3to n do

begint:=b;

b:=b+a;

a:=t;write(trunc(b),' ')

end;end.

10,000 高得離譜。

我只能輸出前 92 個專案，最多加倍加倍。

10,000 或 5,000 個條目可能會超出 500 個高精度字串的範圍，那麼您要做什麼？

如果有必要，可以自行新增編譯器開關。
匿名使用者2024-02-05

首先編寫乙個子函式，然後主函式呼叫求和。

function f=ffib(n)

if n>2

f=ffib(n-1)+ffib(n-2);

elsef=1;

很容易寫出結束總和 main 函式。
匿名使用者2024-02-04

暴力？樹狀陣列？區段樹？平衡樹？請給出乙個具體的主題。不知道你到底在問什麼。
匿名使用者2024-02-03

區間求和？你是什麼意思？
匿名使用者2024-02-02

var n,m,i,k:longint;

beginreadln(n);

m:=0;for i:=1 to n dobeginread(k);

m:=m+k;

end;writeln(m);

end.你是初學者，對吧？這個程式的意思是讀取乙個數字並將其加到 m，這非常簡單。

如果你以後不知道，你可以來找我，問我是否也可以學習帕斯卡。謝謝。