1)составить программу, которая подсчитает объем любого шара по формуле: v=4/3пr^3 2)даны действительные числа x и y. необходимо определить принадлежит ли точка с координатами (x, y) окружности с радиусом r и центром в точке (x1, y1 3)дан одномерный числовой массиф в(16). необходимо вывести на экран индексы элементов значения, которых равны числу p. cрочно надо на языке паскаль составить )

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)  then writeln ('prinadlezhit')else writeln ('ne prinadlezhit'); end.

 

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

 

 

 

program shar; var      r, v: real; begin            write('r = ');       readln(r);             v : = 4 / 3 * 3.14 * r * r * r;             writeln('v = ', v);                   readln; end.

Стакан перемещается на третье место, соответственно чашка на четвертое. теперь известно, что кофе оказалось посередине, т.е. оно в стакане. справа и слева чай и молоко. т.е. в кружке либо чай, либо молоко и в чашке тоже. но известно, что в бутылке минеральная вода, а по соседству с молоком - квас. в чашке - молоко, в кувшине квас, в кружке чай.                   кофе чай молоко квас минеральная вода       бутылка   -        -      -            -        +      кружка             +             чашка                     +           стакан     +        -      -          -          -      кувшин                               +  

Const   n1 = 20;   m1 = 20; var   a: array[1..n1, 1..m1] of integer;   b: array[1..m1] of integer;   i, j, m, n: integer; begin   write('введите через пробел число строк и столбцов массива: ');   readln(n, m);   randomize;   writeln('исходный массив');   for i : = 1 to n do   begin       for j : = 1 to m do       begin           a[i, j] : = random(101) - 50;           write(a[i, j]: 4)       end;       writeln   end;   writeln('сформированный массив');   for j : = 1 to m do   begin       i : = 1;       while (i < = n) and (a[i, j] > = 0) do i : = i + 1;       if i < = n then b[j] : = a[i, j] else b[j] : = -99;       write(b[j]: 4)   end;   writeln end. тестовое решение: введите через пробел число строк и столбцов массива: 3 10 исходный массив   -11 -18 -42 -22  -9    2  21  15  40  -3     4  -5  40 -13 -44 -37  43  47    1 -39   20  50  21 -18 -10    6  12 -10  43 -37 сформированный массив   -11 -18 -42 -22  -9 -37 -99 -10 -99  -3