Помогите пожалуйста составить программу​

Помогите пожалуйста составить программу​

Ответ:1) vary, r, d, a: real;beginreadln(r);readln(d);readln(a);y:=sqrt((sqr(r)+d)/((sqr(a)*sqr(a)*a)-(2*a)));writeln('y = ',y);end.2) varx, y: integer;beginreadln(x);if ((x=6) or (x=-6)) then y:=5+3*x elseif ((x>=-5) and (x<>5)) then y:=2*sqr(x) elseif (x<=5) then y:=x;writeln('y = ',y);end.3) vars, x, p: real;i, k: integer;beginreadln(x);readln(p);readln(k);s:=0;for i:=1 to k dos:=s+((cos(x))/(i+p));writeln('s = '.s);end.Объяснение:

Оценить ответ

Загрузить картинку
Не нравится ответ?

Если ответ на твой вопрос отсутствует, или он не полный, то рекомендуем найти информацию через поиск на сайте.

Найти другие ответы
Новые вопросы и ответы