1樓:匿名使用者
readln(n);
k:=0;i:=0;j:=0;
while k<=n do
begin
inc(i);
for j:=1 to i do
begin
inc(k);
write(k);
if j<>i
then write(' ');
if k>n
then break;
end;
writeln;
if k>n
then break;
end;
2樓:餾纞伱の微笑
我這個肯定好使,我有試過
varm,n,c,d,i:longint;
a:array[1..25,1..25] of longint;
begin
i:=0;
readln(n);
m:=trunc(sqrt(2*n));
for c:=1 to m do
for d:=1 to c do
begin
inc(i);
if i>n then break;
a[c,d]:=i;
end;
for c:=1 to m do
begin
for d:=1 to m-c do write('':3);
for d:=1 to c do if a[c,d]<>0 then write(a[c,d]:3);
writeln;
end;
end.
3樓:遊海穎
vari,a,l,s:longint;
begin
readln(a);
for i:=1 to a do
begin
for l:=1 to i do
begin
s:=s+1;
if s>a then exit;
write(s,' ');
end;
writeln;
end;
end.
設計程式輸出圖形,設計一個程式輸出圖形
include int main 一個簡單的方法 printf n空一格 空兩格 n空三格 設計c語言程式輸出一下圖形 include main for i 0 i 2 i getch include void main for i 3 i 1 i cout lz給分啊 編寫一個程式,輸出以下圖形 ...
c 怎麼輸出長數字?如,c 怎麼輸出長數字? 如
利用字串吧。老鄉,你怎麼把身份證號拿出來了。字串是一個不錯的選擇,當然也可以不用字串,只要把變數的資料型別擴大即可,比如專說把屬 int a 改為 long int a 或者改為 unsigned long int a 只能表示正數。就行了,資料範圍差不多夠用了。輸出你的身份證號碼夠用了哦 o 哈哈...
pascal去掉陣列中重複數字,並把後面的遷移
var a array 1.256 of integer x,n,i,j integer begin readln n for i 1 to n do read a i readln i 1 while ij i 1 whie j n do begin if a j a i then beginfo...