Найти целые числа которые при возведении в квадрат дают палиндромы

@nedranko10 · Регистрация: 05.10.2016

Author24 — интернет-сервис помощи студентам

найти целые числа которые при возведении в квадрат дают палиндромы

@Казанский · 05.10.2016, 21:50

Visual Basic

Private Sub Form_Load()
Dim i&, i2$
  AutoRedraw = True
  For i = 1 To 30000
    i2 = i * i
    If i2 = StrReverse$(i2) Then Print i, i2
  Next
End Sub

~~Shersh~~ · 05.10.2016, 22:44

Visual Basic

Private Sub Form_Load()
Dim i#, i2$
  AutoRedraw = True
  For i = 1 To 30001253
    i2 = i * i
    If i2 = StrReverse$(i2) Then Print i, i2
  Next
End Sub

одна буква может изменить мир

@nedranko10 0 / 0 / 0 Регистрация: 05.10.2016 Сообщений: 2
		1
	Найти целые числа которые при возведении в квадрат дают палиндромы 05.10.2016, 19:29. Показов 751. Ответов 2 Метки нет (Все метки) найти целые числа которые при возведении в квадрат дают палиндромы 0

	05.10.2016, 22:44