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