Найти все трехзначные числа, которые можно представить разностью между квадратом числа - VB
Формулировка задачи:
Найти все трехзначные числа, которые можно представить разностью между квадратом числа, образованного первыми двумя цифрами и квадратом третьей цифры
Решение задачи: «Найти все трехзначные числа, которые можно представить разностью между квадратом числа»
textual
Листинг программы
Sub bb() Dim i&, j& For i = 10 To 99 For j = 0 To 9 If i * i - j * j = 10 * i + j Then Debug.Print i & j Next Next End Sub