Задание

Вычислить значение у при a = 3.68 x = 1.85 n = 2.94

		Program Linia Var a, x, n: real;   Begin Writeln; Write (‘введите a=’, a); Readln (a); Write (‘введите x=’, x); Readln (x); Write (‘введите n=’, n); Readln (n); b:= EXP(a); Writeln (‘b=’, b); y:= (a + b*EXP(x))/LN(n); Writeln (‘y=’, y); z:= sin*y+SQRT(a*b); Writeln (‘z=’, z) END.

Задание.

Вычислить z = R sin x, если y = 5/

R = 2y² – y - 50

Задание.

Program AAA;

Var a, b, c, d, y: real;

Begin

Write (‘Введите значение a=’);

Readln (a);

Write (‘Введите значение b=’);

Readln (b);

Write (‘Введите значение с=’);

Readln (c);

Write (‘Введите значение d=’);

Readln (d);

IF c>d THEN

IF a<b THEN y:= a ELSE y:= b;

ELSE

IF (a*a)>b THEN y:=1+(a*a) ELSE y:=1+b;

Writeln;

Writeln (‘y =’, y:5:2);

END.