pascal程式設計中有練習題,再,第4 10題

2023-01-02 21:10:41 字數 2027 閱讀 2314

1樓:

1全部program l;

vara:array[0..9] of integer;

i,j,k:integer;

begin

a[0]:=0;

a[1]:=1;

a[2]:=2*2*2;

a[3]:=3*3*3;

a[4]:=4*4*4;

a[5]:=5*5*5;

a[6]:=6*6*6;

a[7]:=7*7*7;

a[8]:=8*8*8;

a[9]:=9*9*9;

for i:=1 to 9 do

for j:=0 to 9 do

for k:=0 to 9 do

if a[i]+a[j]+a[k]=a*100+b*10+c then write(a*100+b*10+c:6);

end.

2樓:

具體的格式我忘記了,大概是:

for i=1 to 899

for a=1 to 9

for b=1 to 9

for c=1 to 9

if a*a*a+b*b*b+c*c*c=a*100+*b*c then n=a*100+*b*c

3樓:

var i,x,y,z:integer;

begin

for i:=100 to 999 do beginx:=i div 100;

y:=i mod 100 div 10;

z:=i mod 10;

if x*x*x+y*y*y+z*z*z=i then writeln(i);

end;

end.

4樓:

program exam;

vara,b,c:integer;

begin

for a:=1 to 9 do

for b:=0 to 9 do

for c:=0 to 9 do

if a*a*a+b*b*b+c*c*c=a*100+b*10+cthen write (a*100+b*10+c:6);

readln;

end.

應該是這樣的

5樓:匿名使用者

program sxh;

var a,b,c:integer;

begin

for a:=1 to 9 do

for b:=1 to 9 do

for c:=1 to 9 do

if a*a*a+b*b*b+c*c*c=100*a+10*b+c then

writeln(a,b,c);

end.

絕對沒問題。

6樓:府夢槐

varx,s,e:integer;

i,j,m,l,d:integer;

st:stint;

begin

for x:=100 to 999 do

begin

str(x,st);l:=length(st);s:=0;

for i:=1 to l do

begin

e:=1;

val(st[i],m,d);

for j:=1 to l do e:=e*m;

s:=s+e;

end;

if s=x then writeln(x);

end;

end.

7樓:匿名使用者

var x,y,z:integer;

begin

for x:=1 to 9 do

for y:=0 to 9 do

for z:=0 to 9 do

if x*x*x+y*y*y+z*z*z=100*a+10*b+c then

writeln(100*a+10*b+c);

end.

(一個三重迴圈的程式)

棕葉香裡憶端午這篇短文的練習題第1段中運用了擬人修辭手法

就對他說起了考試考不好這 件事,在我說話的時候,他沒能插上一句回話,他也一句話都沒說當他答,當我向他訴說完後覺得我們輕鬆了許多,而他也只在最後安慰了我一句 別擔心,勇敢去面對吧 我聽了這一句話,彷彿感覺我們身體裡充滿了熱量,彷彿在我們要摔下山崖那一刻,有人伸出熱情的援助之手將我扶起,又像是在我生命垂...

中國石拱橋中課後練習題中的第1大題的第3小題

1 中國石拱橋的總體特點是什麼?試以趙州橋為例,用自己的話說說它是如何體現了中國石拱橋的特點的。2 作者分別介紹趙州橋 盧溝橋,說明的順序基本相同,請具體說一說。3 根據課文內容和插圖,畫出趙州橋的示意圖,標上相應的資料。設題意圖是讓學生了解說明事物要抓住事物的特點,初步注意說明文的說明順序。1 中...

急初二下語文第11課敬畏自然的練習題1 為什我們沒有理由和資格嘲笑古人

答 人類也沒有理由過分自傲,人類的知識與其祖先相比誠然有了極大的進步,似乎有嘲笑古人的資本 可是,殊不知對於後人而言我們也是古人,一萬年以後的人們也同樣會嘲笑今天的我們。也許在他們看來,我們的科學觀念還幼稚得很,我們的航天器在他們眼中不過是個非常簡單的兒童玩具。人類的認識史彷彿是糾錯的歷史,一代一代...