Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  аааа
Language: PASCAL
Code:
program geometry;
var a,l,s1,s2,s3,s4:real;
constant r=1/2*a;
Begin
writeln('vvedi storonu')
readln(a)
s1:=(pi*sqr(r)/360)*60;
s2:=s1*3;
s3:=1/2*a*h;
s4=s3-s2;
writeln('s4=',s4);
readln;
end.
          
Comments: