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

Конечно, вот пример программы на языке Pascal для нахождения суммы числа и числа, записанного теми же цифрами в обратном порядке:

pascalCopy code
program SumAndReverse;

var
  number, reversedNumber, digit, tempNumber: Integer;

begin
  WriteLn('Введите натуральное число:');
  ReadLn(number);

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

  // Найдем сумму и выведем результат
  WriteLn('Сумма числа и числа в обратном порядке:');
  WriteLn(number + reversedNumber);
end.

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