Question

Организация ветвлений в программе. Нужно вычислить, учитывая одз при помощи оператора IF (написала, не знаю как и куда всунуть). Заранее благодарю!


Program laboratary;
var a,b:integer;
x:real;
begin
writeln ('Input a and b:');
begin
read(a,b);
if a>b then x:=2*a+b else
if ax:=-2
end;
writeln(' x=',x:4:1);
end.

Answer 1

Лови ответ олимпиадника:3

Program laboratary;

var a,b:integer;

x:real;

begin

writeln ('Input a and b:');

read(a,b);

if a > b  

then x:=2*a+b  

else if a = b

then x:=-2

else x:=(a - 5) / b;

writeln('x =',x:4:1);

end.