a guest Sep 16th, 2019 76 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Program laba1_2;
  2. const n=12;
  3. Var
  4.     step: byte;
  5.     V,r: real;
  6. Begin
  7.     V:=0;
  8.     r:=0.5;
  9.     For step:=1 to n do
  10.     begin
  11.         V:=V + 4*Pi/3*sqr(r)*r;
  12.         r:=r+0.05;
  13.     end;
  14.     Writeln('ׁףללאנםי מבת¸ל נאגום: ',V:4:3);
  15.     readln(step);
  16. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand