4 года назад

Написать программу вычисления объема шара V с радиусом R по формуле V=(4/3)pR^3

2 ответа:

0 0

Язык python:

from math import pi as pi
R = int(input())
V = (4/3)*pi*R**3
print(round(V,3))

Пояснение:
round - округляет V до 3 знака после запятой, если это не нужно, то просто напишите print(V)

Irina ISI [485]4 года назад

0 0

Var r,v:real;
begin
write('R = ');
readln(r);
v:=4/3*pi*r*r*r;
writeln('V = ',v:5:2);
end.

Пример:
<span>R = 3
V = 113.10</span>

Читайте также

Pascal ABC.Задайте массив из файла, в котором будут размещены однозначные цифры Вашей даты рождения. Например, Вы родились 5 ноя

Ларисасан

Создаёшь в папке с программой два текстовых файла с именами "1.txt." и "output.txt". В первый записываешь 8 чисел без пробелов и запятых ("22031991", например).

type matrix = array [1..8] of integer;var F, output: text; i, n, cc, sum: integer; c: char; x: matrix; ma: real;
procedure convert (var c: char; var cc: integer);begin if c='1' then cc:=1; if c='2' then cc:=2; if c='3' then cc:=3; if c='4' then cc:=4; if c='5' then cc:=5; if c='6' then cc:=6; if c='7' then cc:=7; if c='8' then cc:=8; if c='9' then cc:=9; if c='0' then cc:=0;end;
procedure sorting (n: integer; x: matrix);begin for n:=1 to 7 do begin if x[n]>x[n+1] then swap(x[n],x[n+1]); end;end;
begin Assign(F, '1.txt'); Reset(F); for i:=1 to 8 do begin read(F, c); convert(c,cc); x[i]:=cc; end; Close(F);
sorting(n,x); sum:=x[1]+x[2]+x[3]+x[4]+x[5]+x[6]+x[7]+x[8]; ma:=sum/8; Assign(output, 'output.txt'); rewrite(output); writeln(output, sum); writeln(output, ma); Close(output);end.

0 0

4 года назад

ПОМОГИТЕ ПОЖАЛУЙСТАДети играют в игру. Один ребёнок загадывает любое число из промежутка от 0 до 127. Второй ребёнок угадывает э

planidlati

Всего получается 128 значений. По формуле N=2^i получается
128=2^7
Ответ: 7 бит

0 0

4 года назад

Помогите пожалуйста!!!нужно помочь написать программу.

innabraichuk

program fantscrin;

var x,f:real;

begin