SHARE
TWEET

Untitled

a guest Sep 12th, 2019 94 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Program Delphi;
  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
 
Top