Question

Помогите пожалуйста написать программу

Answer 1

Ответ: к задаче А

var a,b:integer;

x:real;

begin

 writeln('Введите число а');

 readln(a);

 writeln('Введите число b');

 readln(b);

 if(a < b) then

   x:= a/b+5;

 if(a = b) then

   x:= -5;

 if(a > b) then

   x:= (a*a-b)/b;

 writeln('Ответ: x = ', x);

end.

Ответ: к задаче B

var a,b:integer;

x:real;

begin

 writeln('Введите число а');

 readln(a);

 writeln('Введите число b');

 readln(b);

 if(a < b) then

   x:= a/b+1;

 if(a = b) then

   x:= -1;

 if(a > b) then

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

 writeln('Ответ: x = ', x);

end.

Пояснения:

для начала заносятся данные в две переменные, а потом с помощью условного оператора IF сравнивается два значения и заносится ответ в переменную X по условной формуле