Question

13. Даны два числа. Если больше второго, то замените его их разностью, в противном случае - суммой. Второе число не изменять.
14. Составьте программу для вычисления значений функции:
y={x^2, если x > 0; -x, если х < 0​​

Answer 1

Задача 13:

program prog13;

var

   a, b: integer;

begin

 

 write('a = ');

 readln(a);

 

 write('b = ');

 readln(b);

 

 if (a > b) then

   a := a - b

 else

   a := a + b;

 

 writeln();

 writeln('results');

 writeln('a = ', a);

 writeln('b = ', b);

 

end.

-----------------------------------------------------

Задача 14:

program prog14;

var

   x, y: integer;

begin

 

 write('x = ');

 readln(x);

 

 if (x > 0) then

   y := x * x;

   

 if (x < 0) then

   y := -x;

 

 writeln();

 writeln('results');

 writeln('x = ', x);

 writeln('y = ', y);

 

end.