Question

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

Answer 1

uses

SysUtils;

var

num, reversNum: String;

j: Char;

i: Integer;

begin

ReadLn(num);

reversNum := num;

for i := 1 to Length(num) div 2 do

begin

j := reversNum[i];

reversNum[i] := reversNum[Length(num) - i + 1];

reversNum[Length(num) - i + 1] := j;

end;

WriteLn(strtoint(num) + strtoint(reversNum));

end.

Answer 2

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

pascalCopy code
program SumWithReversed;

var
  num, reversedNum, digit, tempNum, sum: integer;

begin
  // Вводим натуральное число
  writeln('Введите натуральное число:');
  readln(num);

  // Инициализируем переменные
  reversedNum := 0;
  tempNum := num;
  sum := 0;

  // Находим число записанное теми же цифрами в обратном порядке
  while tempNum > 0 do
  begin
    digit := tempNum mod 10;
    reversedNum := reversedNum * 10 + digit;
    tempNum := tempNum div 10;
  end;

  // Находим сумму числа и его обратного
  sum := num + reversedNum;

  // Выводим результат
  writeln('Сумма числа и его обратного числа: ', sum);
end.

Вы можете скопировать этот код в среду разработки для Паскаля (например, Free Pascal) и запустить программу. Она попросит вас ввести натуральное число, а затем вычислит сумму этого числа и числа, записанного теми же цифрами в обратном порядке.