答：可以，只要在计算中不用到常量或者变量
1.
var
a,b:longint;
begin
readln(a,b);
writeln(a+b);
end.
2.
begin
writeln(5.6*5.6*6:0:2);//保留了两位小数
end.
3.
const
pi=3.1415926;
begin
writeln(pi*7*7*2+2*pi*7*12:0:2);//保留了两位小数，可以自己改
end.
4.
var
a,b,c,d:longint;
begin
readln(a,b,c,d);//输入分数
writeln(a+b+c+d);//总分
writeln((a+b+c+d)/4);输出平均分
end.
5.
我国宋代的数学家秦九韶也提出了“三斜求积术”，它与海伦公式基本一样。 假设有一个三角形，边长分别为a、b、c，三角形的面积S可由以下公式求得： S=√[p(p-a)(p-b)(p-c)]而公式里的p为半周长：p=(a+b+c)/2
根据海伦公式
var
p:real;
begin
p:=(25.76+74.03+59.31)/2;
writeln(sqrt(p*(p-25.76)*(p-74.03)*(p-59.31)));
end.
6.
var
i,j:longint;
begin
for i:=1 to 150 div 2 do
for j:=1 to 150 div 3 do
if (i*2+j*3=150) and (i+j=65) then
writeln(i,' ',j);//分别输出自行车和三轮车的数量
end.
7.
var
a,b,c:integer;
begin
a:=36;
b:=48;
c:=64;
b:=b+a div 3;
c:=c+a div 3;
a:=a div 3;
writeln(a,' ',b,' ',c);
a:=a+b div 3;
c:=c+b div 3;
b:=b div 3;
writeln(a,' ',b,' ',c);
a:=a+c div 3;
b:=b+c div 3;
c:=c div 3;
writeln(a,' ',b,' ',c);
//编得有点难看 见谅
end.
8.最后一题题意有点看不懂
望解释更明晰
