Решение в приложенном файле.
Ответ 78
Пусть это и не уравнение, но смысл понятен:
Var a,b:real;
Begin
Write('a = ');Read(a);
Write('b = ');Read(b);
if a<>b then Write('Да')
else Write('На ноль делить нельзя!')
End.
Монитор
-----------------------------------
Var
x, y, s: real;
begin
readln(x);
readln(y);
s := abs(x) - abs(y) / 1 + abs (x*y);
writeln(s);
<span>end.</span>
Ответ:
program Calc2;
uses
Math;
var
x, y: Real;
begin
Write ('X = ');
ReadLn (x);
y := x - 10 * Sin (x) + Abs (Power (x, 4) - Power (x, 5));
WriteLn ('Результат = ', y);
ReadLn;
end.
Объяснение: