Ответы
Ответ дал:
0
Ответ:
program Calc1;
uses
Math;
var
x, y, z, A, B: Real;
begin
Write ('Введите X:');
ReadLn (x);
Write ('Введите Y:');
ReadLn (y);
Write ('Введите Z:');
ReadLn (z);
A := Power (2, (Power (y, x))) + Power (Power (3, x), y);
B := (Abs (x - y) * (1 + Power (Sin (z), 2) / (x + y) )) / (Exp (Abs (x - y)) + x / 2);
WriteLn ('A = ', A :15 : 10);
WriteLn ('B = ', B :15 : 10);
ReadLn;
end.
Вас заинтересует
4 месяца назад
4 месяца назад
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад