Question

Viết chương trình tính diện tích hình trìn bán kính r sử dụng chưing trình con.

Helpppp!

Answer 1

program hotrotinhoc;

var i : integer;

S,r: real ;

function kt(i: integer) : boolean ;

var r : real;

begin

kt:=false;

write('Ban kinh r='); readln(r);

if s=3.14*n*n then kt:=true;

end;

begin

if kt=true then write(s);

readln

end.