Question

ПАСКАЛЬ !!!! Составить программу для решения задачи: даны два числа x,y. Присвоить m значение 1, если x<у, и -1 если х≤у

Answer 1

Ответ:

program abc;
var x, y, m : integer;

begin
writeln('Введите X');
readln(x);
writeln('Отлично, введите Y');
readln(y);
if x<y then
m:=1;
writeln('Значение M = ', m);
if x=y then
m:=-1;
writeln('Значение M = ', m);
end.

Answer 2

Для решения данной задачи на языке программирования Паскаль можно использовать следующий код:

program CompareNumbers;
var
  x, y, m: integer;
begin
  writeln('Введите два числа x и y:');
  readln(x, y);
  
  if x < y then
    m := 1
  else if x >= y then
    m := -1;
  
  writeln('Значение m:', m);
end.

В этой программе мы объявляем три переменные: `x`, `y` и `m`. Затем мы считываем значения `x` и `y` с помощью `readln`. Далее, используя условные операторы `if` и `else if`, мы сравниваем значения `x` и `y` и присваиваем переменной `m` значение 1, если `x` меньше `y`, и -1, если `x` больше или равно `y`. Наконец, мы выводим значение `m` с помощью `writeln`.

Пример работы программы:

Введите два числа x и y:
5
10
Значение m: 1

Введите два числа x и y:
10
5
Значение m: -1

Введите два числа x и y:
7
7
Значение m: -1

Надеюсь, это поможет вам решить задачу! Если у вас возникнут еще вопросы, не стесняйтесь задавать.