Найти все двузначные числа, удовлетворяющие условию - Turbo Pascal

Формулировка задачи:

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

Код к задаче: «Найти все двузначные числа, удовлетворяющие условию - 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.

9   голосов, оценка 3.556 из 5


СОХРАНИТЬ ССЫЛКУ