Question

Складіть проект для обчислення значення виразу a+b-c:(a-2b). (Это надо сделать в Lazarus, pascal)

Answer 1

Var
a,b,c:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
WriteLn(a+b-c/(a-2*b));
End.