<h3>PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (x, y) := ReadReal2;
Print((1 + Sqr(Sin(x + y))) / (2 + Abs(x - 2 * x / (1 * Sqr(x * y)))) + x)
end.
<h2>Пример</h2>
3.1 -0.273
3.24500687418188
Abs(−26)=26
sqr(b)=676
sqr(b+b)=2704
Я делала такое на доп. курсах информатики, всё просто.
Var x,y:real;beginx:= 0.1;writeln('x ':6,' y':6);while x<0.7 dobeginy:= 2*Sin(x);writeln(x :6, y:9:3);x:= x + 0.1;end;<span>end.</span>
Ответ:
Что то типа того, попробовал проверять, вроде работает
Объяснение:
program example;
var
d,c,a,h:real;
b : real;
function Calculate(d,c,a,h: real): real;
var
Notation: real;
begin
Notation := c + abs(cos(a*h*h)-sin(a*h));
Calculate := d - sqrt(c/Notation);
end;
begin
readln(d,c,a,h);
b := Calculate(d,c,a,h);
write(b);
end.
Программа проверена на PascalABC