Программа:
Pascal:
var
A, B, F: real;
begin
write('A = '); readln(A);
write('B = '); readln(B);
if (A < 0) and (B < 0) then
F := power(sin(1.121 * A * B), 4)
else if (A > 0) and (B > 0) then
F := cos(1 / A / B)
else
F := 1.121 * A * B;
writeln('F = ', F)
end.
Программа:
Pascal:
var
A, B, F: real;
begin
write('A = '); readln(A);
write('B = '); readln(B);
if (A < 0) and (B < 0) then
F := power(sin(1.121 * A * B), 4)
else if (A > 0) and (B > 0) then
F := cos(1 / A / B)
else
F := 1.121 * A * B;
writeln('F = ', F)
end.