Ответы на вопрос:
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 - сравниваем большее из двузначных чисел с числом получившемся после перестановки цифр суммы
Популярно: Информатика
-
Lemonchick26.09.2021 01:40
-
artslk04.04.2020 11:56
-
МаминаГадость1221.06.2023 12:28
-
кент6309.04.2021 06:50
-
Будина0503.10.2021 11:14
-
Nemogu99917.11.2021 06:43
-
Anastasia241624.08.2020 04:42
-
viktorpadalck15.01.2023 08:05
-
Bekarys200211.12.2021 09:54
-
asdgvhmh18.04.2020 20:59