Forezz

Практическая 9(1)

May 22nd, 2020
216
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.14 KB | None | 0 0
  1. program Project1;
  2. const
  3.   pi = 3.14;
  4. var
  5.    c,s : real;
  6. begin
  7.   readln(c);
  8.   s := sqr(c)/(4 * pi);
  9.   writeln(s:2:2);
  10.   readln;
  11. end.
Add Comment
Please, Sign In to add comment