1)составить программу, которая подсчитает объем любого шара по формуле: V=4/3Пr^3 2)даны действительные числа x и y. необходимо определить принадлежит ли точка с координатами (x,y) окружности с радиусом R и центром в точке (x1,...
1)составить программу, которая подсчитает объем любого шара по формуле: V=4/3Пr^3 2)даны действительные числа x и y. необходимо определить принадлежит ли точка с координатами (x,y) окружности с радиусом R и центром в точке (x1,y1). 3)дан одномерный числовой массиф В(16). Необходимо вывести на экран индексы элементов значения, которых равны числу P. cрочно надо на языке паскаль составить плиз)
Гость
Ответ(ы) на вопрос:
ГостьProgram Shar;
Var
r, v: Real;
Begin
Write('r = ');
ReadLn(r);
v := 4 / 3 * 3.14 * r * r * r;
WriteLn('v = ', v);
ReadLn;
End.
Гость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) а в третью я врубиться не могу.
Не нашли ответ?
Похожие вопросы