Free Pascal怎样求长方体的体积和圆的面积?

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/02 21:07:28

Free Pascal怎样求长方体的体积和圆的面积?
Free Pascal怎样求长方体的体积和圆的面积?

Free Pascal怎样求长方体的体积和圆的面积?
长方体 var a,b,h,s,v:longint; begin readln(a,b,h); writeln(a*b*h); end. 圆 var r,s:real; begin readln(r); writeln(3.141592*r*r:0:2); end.