program ideone;
uses crt;
var r:integer;
const phi=3.14;
begin
readln(r);
writeln(phi*r*r:2:2);
end.
Untuk link program ini silahkan di website ini y https://ideone.com/XSEBzu
Semoga Membantu
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
program ideone;
uses crt;
var r:integer;
const phi=3.14;
begin
readln(r);
writeln(phi*r*r:2:2);
end.
Untuk link program ini silahkan di website ini y https://ideone.com/XSEBzu
Semoga Membantu