Question

Найти разность между трехзначным числом и числом, составленным из тех же цифр, но взятых в обратном порядке. Решить в общем виде. Паскаль)

Answer 1

 

var X : Word;  

begin  

Write('Введите натуральное число (до 65 535) : '); ReadLn(X);  

WriteLn(X, ' - ', Inverse(X), ' = ', X-Inverse(X));  

end.  

 

… где функция Inverse — пара строчек, но «интеллектуальная собственность» , а значит не бесплатно ;-)

Также можно еще один вариант решения:uses crt;  

var x, y, first, second, third, raz:integer;  

Begin  

ClrScr;  

WriteLn('Введите трехзначное число');  

Readln(x);  

first:=x div 100;  

second:=(x div 10 mod 10)*10;  

third:=(x mod 10)*100;  

y:=third+second+first;  

raz:=abs(x-y);  

WriteLn('Разность чисел ',x,' и ',y,' равна ',raz);  

Readln();  

End.

Answer 2

Давайте рассмотрим решение данной задачи в общем виде с использованием языка программирования Pascal. Для этого напишем процедуру, которая будет вычислять разность между исходным трехзначным числом и числом, составленным из тех же цифр, но взятых в обратном порядке.

pascalCopy code
program DifferenceOfReversedNumber;

function ReverseNumber(num: integer): integer;
var
  reversed: integer;
begin
  reversed := 0;
  while num > 0 do
  begin
    reversed := reversed * 10 + num mod 10;
    num := num div 10;
  end;
  Result := reversed;
end;

procedure CalculateDifference;
var
  originalNumber, reversedNumber, difference: integer;
begin
  // Вводим трехзначное число
  write('Введите трехзначное число: ');
  readln(originalNumber);

  // Проверяем, что число действительно трехзначное
  if (originalNumber < 100) or (originalNumber > 999) then
  begin
    writeln('Ошибка: введите трехзначное число.');
    exit;
  end;

  // Вычисляем число, составленное из цифр в обратном порядке
  reversedNumber := ReverseNumber(originalNumber);

  // Вычисляем разность
  difference := originalNumber - reversedNumber;

  // Выводим результат
  writeln('Число: ', originalNumber);
  writeln('Число с обратными цифрами: ', reversedNumber);
  writeln('Разность: ', difference);
end;

begin
  CalculateDifference;
end.

При запуске этой программы она попросит ввести трехзначное число, а затем вычислит разность между исходным числом и числом, составленным из тех же цифр, но взятых в обратном порядке, и выведет результат на экран.