fork download
copy 
  1. program HalfCylinder;
  2. {
  3. 	Задача:
  4. 	- 26 из "Turbo Pascal в задачах и примерах"
  5. 	- автор сборника Никита Культин
  6. 	Решение:
  7. 	- автор Дмитрий Кузнецов
  8.     - цена $108.00
  9. }
  10. const
  11. 	PI = 3.1415;
  12. var
  13. 	v, h, r1, r2	:real;
  14. begin
  15. ///
  16. r1 := 11.00;
  17. r2 := 4.2;
  18. h := 77.223;
  19.  
  20. ///
  21. v := PI * h * (r1 * r1 - r2 * r2);
  22.  
  23. writeln(' Объем полого цилинра :');
  24. writeln(v:8:3)
  25.  
  26. end.
Success #stdin #stdout 0s 5288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 Объем полого цилинра :
25074.728
https://ideone.com/NttWHz
language:
Pascal (fpc 3.0.4)
created:
9 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!