科学松鼠会知乎:看程序写结果

来源:百度文库 编辑:高考问答 时间:2024/04/26 16:08:18
1.program lx1;
var p,q,s,t:integer;
begin
readln(p);
for q:=p+1 to 2*p do
begin
t:=0;
s:=(p*q)mod(q-p);
if s=0 then
begin
t:=p+q+(p*q)div(q-p);
write(t:4);
end;
end;
readln
end.
输入:12 输出:
2.program lx2;
var i,j,f:integer;
a:array[1..8]of integer;
begin
for i:=1 to 8 do
begin
f:=i mod 2;
if f=0 then a[i]:=0
else a[i]:=1;
for j:=1 to i do
if f=0 then a[i]:=a[i]+j
else a[i]:=a[i]*j
end;
for i:=1 to 8 do
write(a[i]:5);
end. 输出:

有没有C的啊?
P现在学了没有用了
我们老师说P现在只是用来考试用的~
学C语言吧!

楼上的知道delphi是用什么语言吗!