Question

Создайте пожалуйста программу на Pascal ABC! Два последовательных двузначных числа сложили и в их сумме переставили цифры. В результате получилось большее из складываемых чисел. Какие числа складывали?

Answer 1

Ответ:

program test;

var i: integer;

begin

for i:=11 to 99 do

if i=(i+i-1) div 10 + (i+i-1) mod 10 * 10 then

writeln (i-1,' ',i)

end.

36 и 37

Объяснение:

for i:=11 to 99 do - перебираем двузначные числа

(i+i-1) - вычисляем сумму двух последовательных двузначных чисел

(i+i-1) div 10 - получаем первую цифру получившейся суммы

(i+i-1) mod 10 - получаем вторую цифру получившейся суммы

(i+i-1) mod 10 * 10 - чтобы переставить цифры в сумме умножаем последнюю цифру на 10 (из единиц делаем десятки)

(i+i-1) div 10 + (i+i-1) mod 10 * 10 - переставляем цифры в получившейся сумме

if i=(i+i-1) div 10 + (i+i-1) mod 10 * 10 then - сравниваем большее из двузначных чисел с числом получившемся после перестановки цифр суммы

Answer 2

Конечно, вот пример программы на Pascal ABC, которая решает данную задачу:

pascalCopy code
program SequentialNumbers;

var
  num1, num2, sum: integer;
  tens1, ones1, tens2, ones2, sum_tens, sum_ones: integer;
  found: boolean;

begin
  found := false;

  for num1 := 10 to 98 do
  begin
    for num2 := num1 + 1 to 99 do
    begin
      sum := num1 + num2;
      
      tens1 := num1 div 10;
      ones1 := num1 mod 10;
      tens2 := num2 div 10;
      ones2 := num2 mod 10;
      sum_tens := sum div 10;
      sum_ones := sum mod 10;

      if (sum_tens = tens1) and (sum_ones = ones2) and (sum > num2) then
      begin
        writeln('Числа: ', num1, ' и ', num2);
        found := true;
        break;
      end;
    end;
    
    if found then
      break;
  end;

  if not found then
    writeln('Решение не найдено');
end.

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