pascal語言題(有分追加)

2022-12-31 17:15:50 字數 952 閱讀 3952

1樓:功安波

program tower;

var x,y:integer;

begin

readln(x,y);

x:=abs(x); y:=abs(y);

x:=x-2;

y:=y-2;

if sqr(x)+sqr(y)<=1 then writeln('10')else writeln('0');

readln;

readln;

end.

var i,j:integer;

begin

for i:=1 to 9 do

begin

for j:=1 to i do

write(j,'*',i,'=',i*j:2,' ');

writeln;

end;

readln;

end.

2樓:匿名使用者

program ta;

var x,y:integer;

begin

readln(x,y);

x:=abs(x); y:=abs(y);

x:=x-2;

y:=y-2;

if sqr(x)+sqr(y)<=1 then writeln('10')else writeln('0');

readln;

readln;

end.

program chengfakoujue;

var i,j:integer;

begin

for i:=1 to 9 do

begin

for j:=1 to i do

write(j,'*',i,'=',i*j:2,' ');

writeln;

end;

readln;

end.

追加100分高中語文蹭題分析,追加100分高中語文病句題分析!!!!!!!!!!!A組 農民耕種符合政策規定的是自留地是一種正

a 農民耕種 符合政策規定的是 自留地是一種正當勞動 括號內是一個整體,農民耕種是名詞,闡述這種行為。比如 我吃飯符合規定的是我沒有剩飯。第二句相當於 媽媽決定給予我停止玩遊戲的處罰。停止參加。是一個處罰內容,不能把停止當動詞 b給你舉幾個例子吧 儘管我們天天都吃飯,但是我們從不剩飯。有關聯詞 第二...

C語言的程式題 求高手速解決 有追加分

3全部vc下編譯通過 include char a int b 2 x 0 char c 999 void sr else if a a a a a b 1 while a 10 void pl void sc void main include stdlib.h include string.h ...

小學閱讀題,急!(追加30分)

文靜寡言 為人bai謙虛du,不張揚,言語較少。zhi斯文而很少言語 安然長逝 dao一副專安然的樣子永遠地離開人間。屬名字 生命的延續 寓意 此畫意在給於女孩支撐與鼓勵,希望她像這片綠葉一樣頑強的生活,戰勝病魔。這也是他最後依次他幫助別人,這副畫還是他生命的延續.3.葉子代表著奉獻,是謙遜,是無私...