1)составить программу, которая подсчитает объем любого шара по формуле: V=4/3Пr^3 2)даны...

Question

1)составить программу, которая подсчитает объем любого шара по формуле: V=4/3Пr^3

2)даны действительные числа x и y. необходимо определить принадлежит ли точка с координатами (x,y) окружности с радиусом R и центром в точке (x1,y1).

3)дан одномерный числовой массиф В(16). Необходимо вывести на экран индексы элементов значения, которых равны числу P.

cрочно надо на языке паскаль составить плиз)

Answer 1

Program Shar;
Var
    r, v: Real;
Begin
    
    Write('r = ');
    ReadLn(r);
    
    v := 4 / 3 * 3.14 * r * r * r;
    
    WriteLn('v = ', v);
    
    
    ReadLn;
End.

Answer 2

1) program ht1; 

var v,p,r:real;

begin

p:=3.14;

writeln ('vvedite r');

readln (r);

v:=4/3*p*(r*r*r);

writeln(v);

end.

 

2) program ht2;

var x,y,r:integer;
begin

writeln('vvedite r);

readln(r);
writeln('vvedite x');
readln (x);
writeln ('vvedite y');
readln (y);

if (x<=r) and (y<=r) <br>then writeln ('prinadlezhit')
else writeln ('ne prinadlezhit');
end.

 

3) а в третью я врубиться не могу.