1樓：匿名使用者
vara:array[1..100,1..100] of longint;
i,j,n:longint;
begin
readln(n);
for j:=1 to n do a[1,j]:=j;
for i:=2 to n do
for j:=1 to n-i+1 do a[i,j]:=i*a[1,j+i-1];
for i:=1 to n do beginfor j:=1 to n-i+1 do write(a[i,j]:4);
writeln;
end;
end.
2樓：聽不清啊
var n,i,j:integer;
begin
readln(n);
for i:=1 to n do
begin
for j:=i to n do
begin
write(i*j:5);
end;
writeln;
end;
end.
3樓：武風
var a:array[1..101,1..101]of longint;
i,j,k,n,t:longint;
begin
readln(n);
k:=n;
while k>0 do begin
a[n-k+1,1]:=(n-k+1)*(n-k+1);
for i:=2 to k do a[n-k+1,i]:=a[n-k+1,i-1]+(n-k+1);
dec(k);
end;
for i:=1 to n do
begin
for j:=1 to n do
if a[i,j]<>0 then
write(a[i,j],' ');
writeln;
end;
end.
pascal程式設計的語言，Pascal語言是什麼？
program 程式 const 常量 type 型別 var 變數 function 函式 procedure 過程 begin 開始 end 結束 if 如果 then 那麼 else 否則 case of 分支 for to do 計數迴圈 while 當迴圈 repeat 迴圈 until ...
pascal程式設計 誰做了好事？有ABCD四位學生，其中一位做
a,b,c,d boolean a 1 b 0 c 0 d 0 如果是a if not not a and c and d and not d or not a and not c and d and not d or not a and c and not d and not d or not a...
pascal教程，怎麼使用pascal
第一節 pascal語言的特點。資訊學奧林匹克競賽是一項益智性的競賽活動，核心是考查參賽選手的智力和使用計算機程式設計解題的能力。資訊學奧林匹克競賽要求參賽選手有如下能力 針對競賽題目中的要求構建數學模型，構造出有效的演算法和選用相應的資料結構，寫出高階語言程式，上機除錯通過。程式設計是資訊學奧林匹...