1樓：匿名使用者
前面的var定義變數你就自己定義吧，定義變數你應該會的吧1var i,ans:longint;
begin
ans:=0;
for i:=1 to 99 do ans:=ans+i;
writeln(ans);
end.
2var i,ans:longint;
begin
ans:=0;i:=1;
repeat
ans:=ans+i;
i:=i*2;
until i=256;
writeln(ans);
end.
3var flag:boolean;
n,i:longint;
begin
readln(n);
flag:=true;
for i:=2 to trunc(sqrt(n)) doif n mod i=0 then begin flag:=false;break;end;
if n<2 then flag:=false;
if flag then writeln('yes') else writeln(no);
end.
4.var
begin
readln(m,n);
p:=m*n;
r:=0;
repeat
r:=m mod n;
m:=n;
n:=r;
until r=0;
writeln('gongyueshu=',m);
p:=p div m;
writeln('gongbeishu=',n);
end.
5var
begin
while true do
begin
read(ch);
if ch='.' then break;
if ch=' ' then write('*') else write(ord(ch)-64);
end;
writeln;
end.
6var
begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
begin
p:=i*i*i+j*j*j+k*k*k;
p1=i*100+j*10+k;
if p=p1 then writeln(p);
end;
end.
好無聊 剩下的自己編吧 這些題目根本沒有任何意義
2樓：匿名使用者
12.var
a:longint;
s:string;
begin
readln(a);
repeat
s:=chr(48+a mod 2)+s;
a:=a div 2;
until a<=0;
writeln(s);
readln;
end.
其實網上都有的，我這裡剛好有一個拷過來，而且這些作業還是自己完成比較好，要不然就沒什麼意義了。
3樓：
7.program q7;
a:array[1..100]of integer;
n:char;
b,c,max,no:integer;
begin
b:=0;
repeat
b:=b+1;
read(a[b]);
read(n);
if n<>','
then
c:=10;
until c=10;
max:=a[1]+a[2]+a[2]+a[4];
for c:=2 to b-3 do
begin
if (a[c]+a[c+1]+a[c+2]+a[c+3])>maxthen
begin
max:=a[c]+a[c+1]+a[c+2]+a[c+3];
no:=c;
end;
end;
c:=0;
if(a[b-2]+a[b-1]+a[b]+a[1])>maxthen
begin
max:=a[b-2]+a[b-1]+a[b]+a[1];
no:=b-2;
c:=1;
end;
if(a[b-1]+a[b]+a[1]+a[2])>maxthen
begin
max:=a[b-1]+a[b]+a[1]+a[2];
no:=b-1;
c:=2;
end;
if(a[b]+a[1]+a[2]+a[3])>maxthen
begin
max:=a[b]+a[1]+a[2]+a[3];
no:=b;
c:=3;
end;
if c=0
then
writeln(no,' ',no+1,' ',no+2,' ',no+3)
else
case c of
1:writeln(b-2,' ',b-1,' ' ,b,' 1');
2:writeln(b-1,' ',b,' ',' 1 2');
2:writeln(b,' 1 2 3');
end;
end.
罰款是多少，罰款是多少
100 200 違章停車罰款多少錢和扣分標準 根據 中華人民共和國道路交通安全法 的最新規定，該法律規定違章停車只罰款不扣分，違章停車有如下處罰條例 第八十九條 行人 乘車人 非機動車駕駛人違反道路交通安全法律 法規關於道路通行規定的，處警告或者五元以上五十元以下罰款 非機動車駕駛人拒絕接受罰款處罰...
價格是多少，請問價格是多少？
是多少 問的有點含糊了，如果是家裝房屋裝修 全包 按裝修標準的 是 如果要高擋點精裝修，需要 1500 1600 平方裝修。如果是大眾化裝修，需要用 1000 1100元 平方左右，屬一般精裝修。如果想一般化裝修，用 700 800元 平方左右，屬普通裝修了。如果按 400 500元 平方裝修，就是...
一百是多少，一千萬是多少，10個一百是多少，10個一千萬是多少。
10個一百是1千 10個一千萬是1億。解析過程如下 10個一百是 100x10 1000 1千10個一千萬是 10000000x10 100000000 1億所以10個一百是1千 10個一千萬是1億。擴充套件資料我們常用的是十進位制計數法，所謂 十進位制 就是每相鄰的兩個計數單位之間的關係是 一個大...