Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Question!


Name: Pheonix
Title:
  If we have R1 and R2 are rays of 2 circles, what is the sum of theirs area.(we have to use a subprogram)
Question:
program AriaCercului1;

var R1, R2, A1, A2:real;

Function Suma(S:integer):integer;

begin
var i,n:integer;
Begin
i:=2;
R1:= R1*i;
for A1:=1 to n do
A1:=Pi*R1;
for A2:=1 to n do
R2:=R2*i;
A2:= Pi*R2;
S:= A1  A2;
Suma:=S;
end;

Writeln('S=' , S:0:0);
readln
end.
Answers: