Найти все двузначные числа, удовлетворяющие условию - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д