Разработать алгоритм и составить программу вычисления значений по формулам: p=(a+)^2+a cos(a+b)+акореньb/a+b, где a=x+y, b=x^2+y

Question

4 года назад

7

Разработать алгоритм и составить программу вычисления значений по формулам: p=(a+)^2+a cos(a+b)+акореньb/a+b, где a=x+y, b=x^2+y

Разработать алгоритм и составить программу вычисления значений по формулам:
p=(a+)^2+a cos(a+b)+акореньb/a+b, где a=x+y, b=x^2+y^2

Знания

Информатика

1 ответ:

Цфузуф · Answer 1 · 2020-12-02T09:24:42+03:00

Цфузуф4 года назад

0 0

Var p,a,b,x,y:real;
Begin
Write('x = ');
ReadLn(x);
Write('y = ');
ReadLn(y);
a:=x+y;
b:=x*x+y*y;
p:=Sqr(a)+a*Cos(a+b)+a*Sqrt(b)/(a+b);
WriteLn('a = ',a);
WriteLn('b = ',b);
WriteLn('p = ',p);
End.