Question

Помогите составить программу для Паскаля на сравнение двух чисел

Answer 1

Var x, y: integer;
begin
     readln(x, y);
     if (x = y) then writeln('x = y');
     if (x < y) then writeln('x < y');
     if (x > y) then writeln('x > y');
end.

Answer 2

Program hren;
uses crt;
var x,y:integer;
BEGIN
writeln('enter your numbers');
readln(x,y);
if x>y then
begin
writeln('the first number is greater');
end else
begin
writeln('the second number is greater');
end;
END.

Answer 3

Конечно! Вот пример программы на языке Паскаль, которая сравнивает два числа и выводит результат:

program CompareNumbers;
var
  num1, num2: Integer;
begin
  writeln('Введите первое число: ');
  readln(num1);
  
  writeln('Введите второе число: ');
  readln(num2);
  
  if num1 > num2 then
    writeln('Первое число больше второго.')
  else if num1 < num2 then
    writeln('Первое число меньше второго.')
  else
    writeln('Числа равны.');
  
  readln;
end.

В этой программе мы используем переменные `num1` и `num2` для хранения введенных чисел. Затем мы сравниваем их с помощью конструкции `if-else`. Если `num1` больше `num2`, то выводим сообщение "Первое число больше второго". Если `num1` меньше `num2`, то выводим сообщение "Первое число меньше второго". Если числа равны, то выводим сообщение "Числа равны".

Надеюсь, это поможет вам составить программу для сравнения двух чисел на языке Паскаль!