跪求Free Pascal For NOI教程
const pi=3.1415927;
var a,b:real;
begin
readln(a);{输入半进}
b:=a*a*pi;
writeln(b);{输出面积}
end.
我的博客上有很多信息学奥赛的东西、先去看看、喜欢的话别忘给分、
const pi=3.1415927;
var a,b:real;
begin
readln(a);{输入半进}
b:=a*a*pi;
writeln(b);{输出面积}
end.
我的博客上有很多信息学奥赛的东西、先去看看、喜欢的话别忘给分、