Реализовать программу, вычисляющею и выводящую объём шара по введённому радиусу - r....

Question

Реализовать программу, вычисляющею и выводящую объём шара по введённому радиусу - r.
Входные данные Выходные данные
2 ----> 33,49
3 ----> 113,03
1 ----> 4,18

Comments

Выходные данные правильно указаны?

---

Не совсем. Для 1 будет 4.19

---

учитель писал

---

Округлять учитель не умеет ваш. 4/3*pi=4.1887902047863909846168578443727

---

И это никак не 4.18

---

аххахаха, согласна

Answer 1

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var r:=ReadReal;
  Writeln(4/3*pi*r*r*r:0:2)
end.

Answer 2

//Pascal ABC, версия 3.0.1.35 (17.4.2007)

var
v, R: real;
begin
writeln('Введите радиус R=');
readln(R);
v:=(4/3)*pi*(R*R*R);
writeln(' Объем равен = ' ,v:0:2);
end.

Comments

Вы не указали версию Паскаля, а pi определено не в любой