用free pascal編譯程序,請各位幫幫忙,要對的,最好快一點,高分懸賞,有兩道題,會多少是多少

2023-02-24 04:35:18 字數 1114 閱讀 3749

1樓:

(1)program prsssoject1;

varn:integer;

procedure find(n:integer);

vari:integer;

begin

if n<>2 then

for i:=2 to n div 2+1 dobegin

if n mod i=0 then

begin

writeln(n,'=',i,'*',n div i);

exit;

end;

end;

writeln('no answer!' );

end;

begin

readln(n);

find(n);

readln;

end.

varhash:array[1..60000 ]of boolean;

n,i,x:longint;

begin

readln(n);

fillchar(hash,sizeof(x),false);

for i:=1 to n do

begin

read(x);

hash[x]:=true;

end;

for i:=60000 downto 1 doif hash[i] then

begin

writeln('max=',i);break;

end;

for i:=1 to 60000 do

if hash[i] then

begin

writeln('min=',i);break;

end;

readln;

readln;

end.

2樓:匿名使用者

改成簡體中文。

引用句子,輸入時不能直接打字,不然會變亂碼,在windows下打好字,複製,在fp中選edit\paste from windows粘上去就行了。

注:漢字佔兩個位元組,粘好後,把游標往後移到位再打,不然也是亂碼。

如果開變數,用string,在簡體中文下編譯好後,直接打就行。

用Free Pascal列印空心圖形

varn,i longint begin readln n for i 1 to n do write writeln write for i 1 to n 2 do write writeln for i 1 to n do write writeln end.program ex const u...

free pascal題目奇怪的電梯用寬度搜尋

奇怪的電梯 copy 呵呵,有一天我做了 bai一個夢,夢見了一種du很奇怪的電梯。zhi大樓的每一層樓都可dao以停電梯,而且第i層樓 1 i n 上有一個數字ki 0 ki n 電梯只有四個按鈕 開,關,上,下。上下的層數等於當前樓層上的那個數字。當然,如果不能滿足要求,相應的按鈕就會失靈。例如...

新人學C 用什麼編譯器好

最常用的是vs2003和vs2005 2008目前還沒什麼公司使用,多半是個人。另外2003在裝的時候經常出現莫名其妙的問題就裝不起。2005不會,並且2005有很多方便的熱鍵可以用,不過2005帶有智慧感知,可以幫你補充上你可能需要的資料。但是如果你使用va外掛幫助程式設計的話,會比2005自帶的...