Question

Pascal ABC
ОЧЕНЬ СРОЧНО, ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ!
ДАЮ 50 БАЛЛОВ!!!

Answer 1

Ответ:

program func;

var

 a, b, c, x, y: real;

begin

 WriteLn('Введите значения аргументов:');

 Write('a = '); ReadLn(a);

 Write('b = '); ReadLn(b);

 Write('c = '); ReadLn(c);

 x := exp(sqr(sin(a * b)) + 1) - ln(abs(cos(c)));

 y := exp (ln (sqr(tan(a)) + ln(abs(sqr(c) * c))) / 3) ;

 WriteLn('x = ', x:4:2);

 WriteLn('y = ', y:4:2);

end.

Объяснение: