Найти все двузначные числа, удовлетворяющие условию - Turbo Pascal
Формулировка задачи:
.Найти все такие двузначные числа, что сумма каждого такого числа и числа с теми же цифрами, но записанными в обратном порядке, есть квадрат некоторого другого числа.
Решение задачи: «Найти все двузначные числа, удовлетворяющие условию»
textual
Листинг программы
Var i : Byte; Begin For i:=10 to 99 do If i+((i mod 10)*10+(i div 10)) = Round(ln(i+((i mod 10)*10+(i div 10)))/ln(2)) {квадрат некоторого другого числа через логарифм} then Writeln(i,' + ',(i mod 10)*10+(i div 10),' = ',Round(ln(i+((i mod 10)*10+(i div 10)))/ln(2))); End.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д