Question

Pascal Ввести два числа. Если они равны, то выдать на печать их сумму, если не равны, то меньшее из чисел.

Answer 1

program abc123;

var x,y:integer;

read(x,y);

if x=y then write(x+y)

else

if x<y then write(x)

else

if y<x then write(y);

end.

Answer 2

Хорошо, вот пример кода на языке Pascal, который выполняет указанные вами действия:

pascalCopy code
program CompareAndPrint;

var
  num1, num2, result: integer;

begin
  // Ввод двух чисел
  write('Введите первое число: ');
  readln(num1);

  write('Введите второе число: ');
  readln(num2);

  // Проверка условия
  if num1 = num2 then
  begin
    // Если числа равны, вычисляем и выводим их сумму
    result := num1 + num2;
    writeln('Числа равны. Их сумма: ', result);
  end
  else
  begin
    // Если числа не равны, выводим меньшее из них
    if num1 < num2 then
      writeln('Первое число меньше: ', num1)
    else
      writeln('Второе число меньше: ', num2);
  end;
end.

Пользователю будет предложено ввести два числа, после чего программа проверит условие и выдаст на печать результат: сумму чисел, если они равны, или меньшее из них, если числа не равны.