Question

Сравните два числа, большее число уменьшите на 10, а меньшее увеличьте на 10;если числа равны, то оставьте их без изменения . НАПИШИТЕ НА ЯЗЫКЕ ПАСКАЛЬ

Answer 1

Вот) если есть вопросы - задавай

Answer 2

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

pascalCopy code
program CompareNumbers;
var
  number1, number2: Integer;
begin
  writeln('Введите первое число: ');
  readln(number1);
  writeln('Введите второе число: ');
  readln(number2);

  if number1 > number2 then
  begin
    number1 := number1 - 10;
    number2 := number2 + 10;
  end
  else if number2 > number1 then
  begin
    number1 := number1 + 10;
    number2 := number2 - 10;
  end;

  writeln('Измененные значения:');
  writeln('Первое число: ', number1);
  writeln('Второе число: ', number2);

  readln;
end.

В этом примере программа запрашивает два числа у пользователя, затем сравнивает их и применяет указанные правила. Результаты изменений выводятся на экран.

Обратите внимание, что этот код предназначен для среды программирования Pascal и может быть запущен с помощью компилятора Pascal.