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自帶的...