1樓：
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.
2樓：匿名使用者
program ex;
const un='*';
var a,b,c:longint;
begin
read(a);
if (a>=2)and(a<=100)thenbegin
for b:=1 to a do write(un);
writeln;
for b:=1 to a do if (b=1)or(b=a)then write(un)else write(un);
for b:=1 to a do write(un);
end;
readln;
end.
free pascal題目奇怪的電梯用寬度搜尋
奇怪的電梯 copy 呵呵，有一天我做了 bai一個夢，夢見了一種du很奇怪的電梯。zhi大樓的每一層樓都可dao以停電梯，而且第i層樓 1 i n 上有一個數字ki 0 ki n 電梯只有四個按鈕 開，關，上，下。上下的層數等於當前樓層上的那個數字。當然，如果不能滿足要求，相應的按鈕就會失靈。例如...
用free pascal編譯程序，請各位幫幫忙，要對的，最好快一點，高分懸賞，有兩道題，會多少是多少
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 writel...
彩色印表機用普通紙可以列印，用相紙列印不出來，怎麼辦
你的印表機什麼型號的，有的印表機是通用的，可以影印掃描和列印，所以打 效果不是特別的好，相紙也有很多種的，選個好一點的相紙，200g的，不要用銅版紙打，還有個就是天冷，搓紙輪不行，用溼毛巾擦一下搓紙輪，就是那幾個小的黑色的輪子，再有就是想用現在的相紙打的話，列印的時候把紙的四個角反方向折一下，列印的...