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

tigranmesropyan tigranmesropyan    1   19.07.2019 18:20    0

Ответы
danilyakimov1 danilyakimov1  19.08.2020 13:49
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var r:=ReadReal;
  Writeln(4/3*pi*r*r*r:0:2)
end.
ПОКАЗАТЬ ОТВЕТЫ
danil250379 danil250379  19.08.2020 13:49
//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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика