program world;
var R:real;
begin
write('Введите радиус шара: ');
readln(R);
write('Объём шара: ',4*R*R*R*pi/3:0:2)
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program world;
var R:real;
begin
write('Введите радиус шара: ');
readln(R);
write('Объём шара: ',4*R*R*R*pi/3:0:2)
end.