1樓：聽不清啊
var f,f1,f2,i:integer;
begin
f1:=1; f2:=1;
for i:=1 to 20 do
begin
writeln('no.',i,': ',f2);
f:=f1+f2;
f1:=f2; f2:=f;
end;
end.
2樓：帽子狗
#include
int h(int n)
main()
printf("第%d項為%d,前%d的項的和為%d\n",x,t2,x,tz);
}else
tz=tz-t2;
printf("第%d項為%d,前%d的項的和為%d\n",x,t1,x,tz);}}
}這是以前上課操作寫的** 可以求前n項和 畫蛇添足了vc上可用
不過我主要是來看樓主吐槽的
順便水一發
3樓：_久違
pascal:
program q_1;
vara1,a2,a3,t,i,x:longint;
begin
readln(x);
a1:=1;
a2:=0;
a3:=1;
repeat
writeln(a1);
a1:= a2 + a3 ;
t;=a1;
a2:=a3;
a3:=t;
i:=i+1;
until i=x ;
readln;
readln;
end.
4樓：
int gene(int month)
;while (month >0)
return age[0] + age[1] + age[2] + age[3];
}int main()
大概是這個樣子的
請問 資訊學奧林匹克競賽 的比賽成績要達到什麼才會被保送啊？具體都能保送那些學校呢
高二進行有點晚了，不知道你現在處於什麼水平。我正在輔導高一同學參加培訓活動中。你看看下面大綱，如果沒有什麼底子就別搞了，浪費時間。附競賽考綱 一 初賽內容與要求 a 計算機的基本常識 1 計算機和資訊社會 資訊社會的主要特徵 計算機的主要特徵 數字通訊網路的主要特徵 數字化 2 資訊輸入輸出基本原理...
紹興市少兒資訊學奧林匹克競賽中的pascal語言
turbo pascal基本函式過程及解釋 pascal執行錯誤對照表 free pascal的幫助檔案 原創 fp的編譯器選項 分享關於free pascal中資料的表示方式 pascal不是很全面的,搞計算機最通用的語言和最基本的語言 pacsal 與turobo pascal的區別 兩個帶源程...
高中資訊學奧林匹克競賽考什麼，高中計算機奧林匹克競賽考什麼？
1.c,c pascal,可以用最新版的。2，區別沒多大，c 要比c難學 3，你可以學c。因為你會c 有基礎。4，初賽難度不大，複賽和3級難度差不多 5，專修c的書，還有程式設計技巧，程式設計藝術之類的書。6，萬事皆有可能。 青少年資訊學奧林匹克競賽情況簡介 資訊學奧林匹克競賽是一項旨在推動計算機普...